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
writeln(' ', mas[i])
else
writeln(mas[i],' ');
end;
end.