С клавиатуры вводится произвольное количество чисел N. Определите количество (К) и сумму (S) положительных чисел, оканчивающихся на 6. Запишите программу на любом языке программирования.

program zz1;

var a, k, n, i, s:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество чисел

read (n);

for i:=1 to n do / / организуем цикл

begin

read (a); / / вводим число

if (a > 0) and (a mod 10 = 6) then begin k:=k + 1; s:=s + a; end; / / проверяем, если число положительное и последняя цифра у него 6, то считаем его и добавляем в сумму

end;

write (' количество положительных чисел оканчивающихся на 6 = ', k, ' их сумма = ', s); / / выводим ответ

end.