Составте программу генерирование случайных чисел от -100 до100.Выдавать ** экран по...

Question

Составте программу генерирование случайных чисел от -100 до100.Выдавать на экран по одному числу в каждой строчке , если число отрицательное , то выводить противоположно
В два столбика

Answer 1

Var
i:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-100,100);
end;
for i:=1 to 10 do begin
if mas[i]<0 then<br>writeln(' ', mas[i])
else
writeln(mas[i],' ');
end;
end.