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

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

Question

Информатика

Северьян

24 октября, 21:33

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

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

+1

Ответы (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.