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

vara,b: array [0..10] of longint;q:longint;beginfor q:=1 to 10 dobegina[q]:=random(11)-5;if a[q]>0 then b[q]:=a[q]+2;write(a[q],' ');end;writeln();for q:=1 to 10 dowrite(b[q],' ');end.

pascalABC.netvar   i:integer;   a:array[1..10]of integer;beginwriteln('Исходный массив:');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.