Предмет: Информатика, автор: SHAMANExDoSus

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


FoxiLis: какой язык?
SHAMANExDoSus: паскаль желательно,а так можно и питон

Ответы

Автор ответа: FoxiLis
1

Ответ:

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.


FoxiLis: ужасное условие окончания, нельзя ввести сначала сколько чисел хочешь ввести, а в слежующей строке начать вводить эти числа
SHAMANExDoSus: Спасибо я в конце добавил if max>min then
R:=max - min;
Writeln ('R=',R);
SHAMANExDoSus: Ну и переменную новую ввёл
Похожие вопросы
Предмет: Химия, автор: RedDeath3
Предмет: Математика, автор: mariya21175