Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20. Только,пожалуйста,не в паскале а в бейсике)
Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). Требуется умножить отрицательные значения элементов этого массива на 20.
Только,пожалуйста,не в паскале а в бейсике)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы