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

Question

Макар

8 марта, 02:28

+4

Ответы (1)

Знаете ответ на вопрос?

Коляня · Answer 1

Var a:shortint;

begin

Randomize;

a:=Random (-100, 100) ;

if (a<0) then a:=a * (0-1) ;

writeln (a) ;

end.

Все программируемое - просто))