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

Алгоритмика: объявляем a:Shortint [-127;+127] → Объявляем процедуру randomize → задаем a [-100;+100] → Усл. оператор:

Если a<0, умножаем на -1, чтобы получить обратное число

дальше - выводим a)

Для себя сейчас проверил: можно без Randomize с:

Спасибо большое)

var a:shortint;beginRandomize;a:=Random(-100, 100);if (a<0) then a:=a*(0-1);writeln(a);end.Все программируемое - просто))