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.
Answers & Comments
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.