Журналист
Teinvyuv 4 ноября 2019 в 07:53

Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. Ниже представлен вид экрана во время работы программы:

Вводите последовательно числа.
Для завершения ввода введите ноль.
----------------------
1 число: 33
2 число: 45
3 число: -10
4 число: 0
----------------------
Максимальное число: 45

Vari, max, y: integer;
begin
Writeln(Вводите последовательно числа.);
Writeln(Для завершения ввода введите ноль.);
Writeln(----------------------);
max := 0;
y := 0;
repeat
y := y + 1;
write(y, число:);
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i gt; max) then max := i;
until i = 0;
Writeln(----------------------);
Writeln(Максимальное число: , max);
Writeln();
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём, Вывод ИЗ "...ОтделыОбмен";

ПЕР
  текЧисло, макс, сч: ЦЕЛ;

УКАЗ
  сч := 1;
  Вывод.Цепь("Вводите последовательно числа.^");
  Вывод.Цепь("Для завершения ввода введите ноль.^");
  Вывод.Цепь("----------------------");
  ПОВТОРЯТЬ
    Вывод.ЧЦел("^d число: ", сч, 0, 0, 0);
    текЧисло := Приём.Число();
    ЕСЛИ текЧисло gt; макс ТО макс := текЧисло КОН;
    УВЕЛИЧИТЬ(сч)
  ДО текЧисло = 0;
  Вывод.Цепь("^----------------------");
  Вывод.ЧЦел("^Максимальное число: d", макс, 0, 0, 0)

КОН Задание.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте