В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить **...

Question

В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. Вывести на экран исходный и преобразованный массивы.
Помогите пожалуйста, очень нужно Т.т

Answer 1

Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
for i:=1 to n do
 if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7;<br>for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
  -4   4 -10   6  -8   9   0   5   3  10
   7   8   7  12   7  18   0  10   6  20