Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить ** вопрос правда ли что...

Question

Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос правда ли что первое число самое маленькое, а последнее самое большое? Составить блок-схему и программу решения задачи

Answer 1

Var a,b,c,d:Real;   
T:Boolean;
Begin
randomize;
a:=random(50);
b:=random(50);
c:=random(50);
d:=random(50);
writeln('A=',a,' ','B=',b,' ' 'C=',c,' ','D=',d);
T:=(aa)and(d>b)and(d>c);
writeln(T);
End.

Comments

Если все условия соблюдены, то на экран выдаст "True", если нет, то "False".