Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 5, а также наибольшее из этих чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Программа должна вывести 2 числа - количество чисел, оканчивающихся на 5 и наибольшее из них.

На Паскале

Question

Информатика

Агамирза

6 июня, 01:41

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 5, а также наибольшее из этих чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Программа должна вывести 2 числа - количество чисел, оканчивающихся на 5 и наибольшее из них.

На Паскале

+4

Ответы (1)

Знаете ответ на вопрос?

Йешаягу · Answer 1

var

a, b, min, i:integer;

begin

read (a) ;

min:=0;

for i:=1 to (a-2)

do

begin

read (b) ;

if (b mod 10=6) and ((b
then

min:=b;

read (b) ;

end;

write (min) ;

end.