Массив

[Smo]

В массиве А из 10 элементов, заполненном случайными числами от -5 до 5, увеличить положительные элементы на 2, отрицательные элементы уменьшить на 1, а нулевые оставить без изменения

[domovou]

var a:array [1..10] of integer;
    i:integer;
BEGIN
for i:=1 to 10 do
    begin
    a[i]:=random(11)-5;
    write(a[i]:3);
    if a[i]>0 then a[i]:=a[i]+2
       else if a[i]<0 then a[i]:=a[i]-1;
    end;
writeln;
for i:=1 to 10 do write(a[i]:3);
writeln;
END.