Вопрос по информатике:
Найти в массиве все пары зеркальных элементов (элементов, имеющих один модуль, но разный знак).
- 25.07.2016 19:27
- Информатика
- remove_red_eye 8931
- thumb_up 30
Ответы и объяснения 1
Const nx = 30;var C:Array[1..nx]of integer;
r,i,n,m,max,k,el:integer;
Begin
Randomize;
write('Введите количество элементов');Readln(n);
for r:=1 to n do begin
C[r]:=random(100)-50;write(C[r]:4);end;
writeln;
for r:=1 to n do begin
if 0 < C[r] then begin
for i:=r to n do begin
if (0 > C[i])and (abs(C[i])= C[r]) then writeln(r:3,C[r]:4,' ',i:3, C[i]:4);end;end;
if 0 > C[r] then begin
for i:=r to n do begin
if (0 < C[i])and (C[i]= abs(C[r])) then writeln(r:3,C[r]:4,' ',i:3, C[i]:4);end;end;end;end.
- 26.07.2016 11:13
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.