Дан массив целых чисел. Определить ко-во четных элементов и кол-во элементов, оканчивающихся на цифру 5.

const nn=10;

var

a:array [1 ... nn] of integer;

i, s, k:integer;

begin

s:=0; k:=0;

for i:=1 to nn do readln (a[i]) ;

for i:=1 to nn do

begin

if a[i] mod 2 = 0 then s:=s+1;

if a[i] mod 10 = 5 then k:=k+1;

end;

writeln ('Четных элементов: ', s) ;

writeln ('Элементов оканчивающихся на 5: ', k) ;

end.