Naron
7 год назад
Из элементов массива A, состоящего из 10 элементов, заполненный случайным образом, сформировать массив B по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. Распечатать оба массива.
ОТВЕТЫ
Прокопий
Jul 11, 2019
Var
a,b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(1001)-1000;
for i:=1 to 10 do b[i]:=abs(a[i]);
for i:=1 to 10 do write(a[i], );
writeln;
for i:=1 to 10 do write(b[i], );
end.
a,b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(1001)-1000;
for i:=1 to 10 do b[i]:=abs(a[i]);
for i:=1 to 10 do write(a[i], );
writeln;
for i:=1 to 10 do write(b[i], );
end.
166
Смежные вопросы:
