Кто-нибудь решите, пожалуйста. ПРОШУ, ОЧЕНЬ СРОЧНО НАДО.
Пользователь вводит целые положительные числа, программа ищет наибольшее и наименьшее из них.
Когда пользователь введёт 0, программа сам ноль не учитывает (это только признак конца ввода), а
сообщает разность между максимальным и минимальным из введённых чисел.
(Написать на языке паскаль, не использовать массивов, не использовать текстовых операций и
функций, - только математические действия и условные циклы!!!)
По дате
По рейтингу
123456789101112131415
var
num, max, min: integer;
begin
readln(num);
max := num;
min := num;
while num <> 0 do
begin
if num > max then max := num
else if num < min then min := num;
readln(num);
end;
write(max - min)
end. Больше по теме
