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

Question

Информатика

Ульяныч

30 декабря, 00:11

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

+4

Ответы (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.