Помогите пожайлуста
Напишите программу, которая в последовательности натуральных чисел:
а) определяет максимальное число, оканчивающееся на 5;
б) считает количество четных чисел.
Программа получает на вход кoличество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 5, и хотя бы одно четное. Количество чисел не превышает 100. Введённые числа не превышают 10 000. Программа должна вывести два числа — максимально число, оканчивающееся на 5, и количество четных чисел.
Ответы на вопрос
Ответил ZvyaginzevVladislav
0
Ответ:
Ну вроде так:
var n, i, m, kol, chislo: integer;
begin
write('Введите количество чисел ');
read(kol);
for i:=1 to kol do
begin
write('Введите число ');
read(chislo);
if (chislo mod 2 = 0) then n:=n+1;
if (chislo mod 10 = 5) and (chislo > m) then m:=chislo;
end;
write('Количество четных: ',n,' Самое большое оканчивающееся на 5: ',m);
end.
Новые вопросы
Математика,
2 года назад
Математика,
2 года назад
Химия,
7 лет назад
Физика,
8 лет назад
Математика,
8 лет назад