Из элементов массива A, состоящего из 10 элементов, заполненный случайным образом, сформировать массив B по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. Распечатать оба массива.

Question

Информатика

Ефимья

30 апреля, 00:39

Из элементов массива A, состоящего из 10 элементов, заполненный случайным образом, сформировать массив B по следующему правилу: положительные элементы перенести в массив b без изменений, а отрицательные заменить их модулем. Распечатать оба массива.

+5

Ответы (1)

Знаете ответ на вопрос?

Витаня · Answer 1

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.