Напишите программу, которая в последовательности натуральных чисел определяет максимальное, оканчивающееся на 1. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 1. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - максимальное число, оканчивающееся на 1. Входны данные 3 11 21 31 Выходные данные 31

Question

Ксения Евсеева

Информатика

26 декабря, 17:30

Напишите программу, которая в последовательности натуральных чисел определяет максимальное, оканчивающееся на 1. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 1. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - максимальное число, оканчивающееся на 1. Входны данные 3 11 21 31 Выходные данные 31

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Андрей Лазарев · Answer 1

program max_n;

const k = 5;

//Проверить работоспособность на тысяче чисел трудно.

//Задано количество чисел 5.

//Можно заменить на k = 1000.

var max, n, l: integer;

procedure vvod (var n:integer);

begin

readln (n);

if n > 30000 then

begin

writeln ('Число больше 30 000, введите меньшее число ');

vvod (n);

end

end;

begin

writeln ('Введите число, не превышающее 30000');

l:=0;

n:=1;

max:=1;

while n>0 do

begin

vvod (n);

l:=l+1;

if l max then max:=n;

if l = then

begin

writeln ('Количество чисел не может быть больше, чем ', k);

writeln ('Максимальное число ', max);

n:=0;

end

end;

if l
end.