Question

Опишіть процес пошуку найбільшого та найменшого значення в програмі Lazarus?

Answer 1

Ответ:

program E1;

var x,y,z :real;

begin

readln(x);

readln(y);

then z:=x<y

else z:=x>y

end.

Объяснение:

then это если (у) больше (х) а else это наоборот