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

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.

PascalABC.net

var
   i:integer;
   a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(-5,5);
  write(a[i]:4);
  end;
for i:=1 to 10 do
  if a[i]>0 then a[i]:=a[i]+2
    else a[i]:=0;
writeln;
writeln('Преобразованный массив:');  
for i:=1 to 10 do
  write(a[i]:4);
end.