Question

(50 баллов) сгенерировать три случайных числа a b c из диапазона от -30 до 30

вывести их на экран, найти наибольшее из них по модулю (pascal)

Answer 1

Программа:

var a,b,c,max: integer;

begin

randomize;

a:=random(61)-30;

b:=random(61)-30;

c:=random(61)-30;

writeln('a = ',a,' b = ',b,' c = ',c);

if abs(a)>abs(b) then max:=a else max:=b;

if abs(c)>abs(max) then max:=c;

writeln('max = ',max);

end.

Пример:

a = 26 b = -25 c = -2

max = 26