Ребят можете Необходимо написать прогу
Пользователь вводит целые положительные числа, программа ищет наибольшее и наименьшее из них.
Когда пользователь введёт 0, программа сам ноль не учитывает (это только признак конца ввода), а
сообщает разность между максимальным и минимальным из введённых чисел
k1122
2
12.02.2022 23:13
0
Другие вопросы по теме Информатика
alyonasmirnova5
27.07.2019 15:50
Maykaktys
15.03.2019 05:10
belat1
15.03.2019 05:10
Evastupid
13.07.2019 04:40
xomidov
06.06.2019 18:00
Artem3460
06.06.2019 18:00
Денис56545
06.06.2019 18:00
Юлдуз1122
06.06.2019 18:00
881881881
06.06.2019 18:00
Популярные вопросы
- Осуществить превращение al-al2(so4)3- al(oh) 3-al2o3...
2 - Запиши выражение и вычисли его значение: значение чисел 1486и 8 умножить...
2 - Який обмін водню виділиться при дії натрію на етанол масою 92 г, що...
3 - Вкаком слове написание пре-/при- зависит от контекста? укажите правильный...
2 - Спереводом. 1) you can see wonderful buildings on the banks of the thames,...
1 - Вчём состоит основное значение гражданского общества? почему без гражданского...
3 - Биология . расставьте коэффициенты fe3+o=fe3o...
3 - Найдите число если: 1)если число делиться на 2, то оно лежит в промежутке...
2 - )какова центростремительная сила,действующая на автомобиль массой 5...
2 - Усман сказал, что за 4 дня он решил 23 . причём каждый новый день он...
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.