Филат
7 год назад
Составьте программу генерирования случайных чисел от -100 до 100.Выдавать на экран по одному числу в каждой строчке,если же число отрицательное ,то выводить противоположно.Буду благодарна за помощь
ОТВЕТЫ
Пров
Jul 15, 2019
Var a:shortint;
begin
Randomize;
a:=Random(-100, 100);
if (alt;0) then a:=a*(0-1);
writeln(a);
end.
Все программируемое - просто))
begin
Randomize;
a:=Random(-100, 100);
if (alt;0) then a:=a*(0-1);
writeln(a);
end.
Все программируемое - просто))
121
Смежные вопросы:
