Question

Помогите пожалуйста решить задание на Паскале по оператору перехода! Даны различные действительные числа a, b,c, d. Найти max (max(a, b), max(a, c), max(a, d)).Числа получить случайным образом на интервале [-50..+50]

Answer 1

uses crt;
var a,b,c,d:integer;
begin
randomize;
a:=random(-50,50);
b:=random(-50,50);
c:=random(-50,50);
d:=random(-50,50);
writeln('a: ',a,' b: ',b,' c: ',c,' d: ',d);
writeln(max(max(max(a,b),max(a,c)),max(a,d)));
end.