program massiv;
uses CRT;
const N=30;
var i,S:integer;
K:real;
a:array [1..N] of integer;
begin поёдёт да
for i:=1 to N do
begin
read a[i];
end;
if a[i] mod 10 =5
then
S:=S+a[i];
K:=K+1;
write(S/K);
readkey;
end.
program massiv;
uses CRT;
const N=30;
var i,S:integer;
K:real;
a:array [1..N] of integer;
begin поёдёт да
for i:=1 to N do
begin
read a[i];
end;
for i:=1 to N do
begin
if a[i] mod 10 =5
then
S:=S+a[i];
K:=K+1;
end;
write(S/K);
readkey;
end.