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

В два столбика

Question

Информатика

Емельяныч

14 апреля, 05:54

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

В два столбика

+5

Ответы (1)

Знаешь ответ?

Феофан · 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.