var a,s,k: integer;
begin
s:=0;
k:=0;
for i:=1 to 25 do
read(a);
if (a mod 4=0)and(a mod 10<>4)
then begin s:=s+a; k:=k+1; end
end;
if k<>0 then writeln(s/k)
else writeln('Нет нужных чисел');
end.
Пример (для 5 чисел):
12 44 15 48 24
30
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a,s,k: integer;
begin
s:=0;
k:=0;
for i:=1 to 25 do
begin
read(a);
if (a mod 4=0)and(a mod 10<>4)
then begin s:=s+a; k:=k+1; end
end;
if k<>0 then writeln(s/k)
else writeln('Нет нужных чисел');
end.
Пример (для 5 чисел):
12 44 15 48 24
30