Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется...

Question

Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20. ПОМОГИТЕ ПОЖАЛУЙСТА=)

Answer 1

const n=10;
Var i : integer;
a : array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100+1)-50;
end;
for i:=1 to n do
begin
if a[i]<0 then a[i]:=a[i]+20;<br> end;
for i:=1 to n do write(a[i],' ');
readln;
end.