Question

Определить максимальное и минимальное значения для двух различных вещественных чисел.

 Это нужно сделать в Паскале!!!!!!!!!!!!

Answer 1

Program ololosh;

var

a,b:real;

begin

readln(a); {1-ое число}

readln(b); {2-ое число}

if a>b then

write ('1-ое максимальное, а 2-ое минимальное')

else

write ('2-ое максимальное, а 1-ое минимальное');

end.