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

1

Ответы и объяснения

2012-04-23T18:28:36+04:00

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;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.