Напешите программу, которая в последовательности натуральных - вопрос №11662925 от akhdogru 25.10.2020 03:17

Question

Информатика: Напешите программу, которая в последовательности натуральных чисел определяет максимальное число, меньше 1000. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивающихся числом 0 (0-признак окончания ввода, не входит в последовательность).Количество чисел не привыкает 1000. Введённые числа не превышают 30000.Программа должна вывести одно число-максимальное число последовательности меньше 1000.Пример работы программы: Входные данные:

akhdogru · Answer

var x, max: integer;begin    x := -MAXINT;    max := x;    while(x 0) do    begin        readln(x);        if (x max) and (x 1000) and (x 0) then max := x;    end;    writeln(max);end....