Предмет: Информатика,
автор: SHAMANExDoSus
Ребят можете помочь
Необходимо написать прогу
Пользователь вводит целые положительные числа, программа ищет наибольшее и наименьшее из них.
Когда пользователь введёт 0, программа сам ноль не учитывает (это только признак конца ввода), а
сообщает разность между максимальным и минимальным из введённых чисел
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.
R:=max - min;
Writeln ('R=',R);
Похожие вопросы
Предмет: Русский язык,
автор: 424242162197
Предмет: Українська мова,
автор: 55616
Предмет: Русский язык,
автор: Ви15058
Предмет: Химия,
автор: RedDeath3
Предмет: Математика,
автор: mariya21175