Регистрация
anisova342
25.07.2022 18:34
Информатика
Есть ответ 👍

Ребят можете Необходимо написать прогу
Пользователь вводит целые положительные числа, программа ищет наибольшее и наименьшее из них.
Когда пользователь введёт 0, программа сам ноль не учитывает (это только признак конца ввода), а
сообщает разность между максимальным и минимальным из введённых чисел

294
443
Посмотреть ответы 2

Ответы на вопрос:

katelove8
katelove8
4,5(80 оценок)

Program qq;

Var Min, max, n: integer;

Begin

Readln(n);

If n <> 0 then begin

Max:=n

Min:=n;

End;

While n<>0 do

Begin

Readln(n);

If n<> 0 then begin

If n>max then

Max:=n

Else if n<min then

Min:= n;

End;

End;

Writeln(max, ' - max, ', min, ' - min');

End.

elizavetawwwpotex
elizavetawwwpotex
4,5(30 оценок)
215 в восьмой степени=2*8во 2 степени+1*8+5=141

Популярно: Информатика