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

Количество чисел не привыкает 1000. Введённые числа не превышают 30000.

Программа должна вывести одно число-максимальное число последовательности меньше 1000.

Пример работы программы:

Входные данные:

265.

3248

789

35

0

Выходные данные:

789

Обязательно писать программу на языке паскаль!

Ответы

amolodyka 13.10.2020 17:51

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

dddashaaa1 04.04.2019 22:23

Синформатикой! ! решается в pascal....

jinoguhaz 04.04.2019 22:16

Анндрейй 21.05.2019 21:50

frankinshtein228 05.10.2019 06:01

taoo 05.10.2019 06:01

Alex71532 05.10.2019 06:01

flash2050p08smf 05.10.2019 03:54

Bakuninalexander 05.10.2019 06:10

Violetta711 05.10.2019 06:10

Stukaneva 05.10.2019 06:10