Хей, хелп, сомбади Одномерный массив из 10 элементов заполнить случайным образом числами от - 5 до 5. Заменить все отрицательные элементы массива 0, а положительные увеличить на 2. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Question

Информатика

Устина

30 января, 04:21

Хей, хелп, сомбади Одномерный массив из 10 элементов заполнить случайным образом числами от - 5 до 5. Заменить все отрицательные элементы массива 0, а положительные увеличить на 2. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

+1

Ответы (1)

Знаете ответ?

Митюля · Answer 1

Var

a, b: array [0 ... 10] of longint;

q:longint;

begin

for q:=1 to 10 do

begin

a[q]:=random (11) - 5;

if a[q]>0 then b[q]:=a[q]+2;

write (a[q],' ') ; end;

writeln () ;

for q:=1 to 10 do

write (b[q],' ') ;

end.