Хей,хелп,сомбади Одномерный массив из 10 элементов заполнить случайным образом числами от -5 до 5. Заменить все отрицательные элементы массива 0,а положительные увеличить на 2. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
More Questions From This User See All
Answers & Comments
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.