Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан массив целых чисел.Определить ко-во четных элементов и кол-во элементов, оканчивающихся на цифру 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.