Question

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

Answer 1

var a:shortint;
begin
Randomize;
a:=Random(-100, 100);
if (a<0) then a:=a*(0-1);
writeln(a);
end.

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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