Напишите пожалуйста программу С клавиатуры вводится N целых чисел, Nтоже вводится с клавиатуры. Найти сумму нечетных, оканчивающихся на 7 или сообщить, что таких чисел в введенной последовательности нет

Вопрос школьника по предмету Информатика

Напишите пожалуйста программу
С клавиатуры вводится N целых чисел, Nтоже вводится с клавиатуры. Найти сумму нечетных, оканчивающихся на 7 или сообщить, что таких чисел в введенной последовательности нет

Ответ учителя по предмету Информатика

var n,i,a,s,f:integer;

begin

write(‘n = ‘);

readln(n);

s:=0; f:=0;

for i:=1 to n do

 begin

 readln(a);

 if abs(a) mod 10 = 7

  then begin s:=s+a; f:=1; end;

 end;

if f=1

 then writeln(‘Сумма нечетных чисел, оканчивающихся на 7 = ‘,s)

 else writeln(‘среди введенных чисел нет нечетных, оканчивающихся на 7’);

end.

Пример:

n = 5
25
-17
71
68
27
Сумма нечетных чисел, оканчивающихся на 7 = 10