program nchsk;
uses
crt;
var
n, s, k, c, cn: integer;
sr: real;
begin
writeln('Сколько чисел будете вводить?');
readln(n);
c := 0;
s := 0;
writeln;
writeln('Вводите:');
while c <> n do
readln(k);
if ((k div 10) > 0) and ((k div 10) < 10) and ((k mod 5) = 0) then
s := s + k;
cn := cn + 1;
end ;
c := c + 1;
end;
sr := s / cn;
writeln('Среднее арифметическое двухзначных чисел, кратных пяти: ', sr);
readln;
end.
program nchsk;
uses
crt;
var
n, s, k, c, cn: integer;
var
sr: real;
begin
writeln('Сколько чисел будете вводить?');
readln(n);
c := 0;
s := 0;
writeln;
writeln('Вводите:');
while c <> n do
begin
readln(k);
if ((k div 10) > 0) and ((k div 10) < 10) and ((k mod 5) = 0) then
begin
s := s + k;
cn := cn + 1;
end ;
c := c + 1;
end;
writeln;
sr := s / cn;
writeln('Среднее арифметическое двухзначных чисел, кратных пяти: ', sr);
readln;
end.