Дан целочисленный массив заданный датчиком случайных чисел в интервале (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.