Помогите пожайлуста ​Напишите программу, которая в последовательности натуральных...

0 голосов
69 просмотров

Помогите пожайлуста ​Напишите программу, которая в последовательности натуральных чисел:а) определяет максимальное число, оканчивающееся на 5;б) считает количество четных чисел. Программа получает на вход кoличество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 5, и хотя бы одно четное. Количество чисел не превышает 100. Введённые числа не превышают 10 000. Программа должна вывести два числа — максимально число, оканчивающееся на 5, и количество четных чисел.​


Информатика (12 баллов) | 69 просмотров
Дан 1 ответ
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.

(95 баллов)
0

привет мне нужно писать m, i, kol, chislo? именно это писать или что то другое

0

это названия переменных в коде. ты можешь заменить их на другие или оставить такими. только если будешь менять просмотри весь код внимательно измени названия везде, а не только после "var"

0

но можешь и оставить эти

0

спасибо

0

а можно просто буквы использовать, прости что много спрашиваю

0

Да конечно, главное чтобы имена переменных не повторялись и не начинались с цифр и символов

0

ага, спасибо огромное)))