В ЧЁМ ОШИБКА?
program z4;
var a,i,n,k,f:integer;
begin
k:=0;
f:=0;
writeln ('В начале введите сколько чисел будет в вашей последовательности, а потом введите последовательность целых чисел.');
readln(n);
for i:=1 to n do
begin
readln(a);
if (a mod 10=5) and (a mod 5=0)
then
k:=k+a;
f:=f+1;
end;
writeln('Среднее арифметическое чисел, кратных 5, но не заканчивающихся на 0: ',k/f);
end.
program z4;
var a,i,n,k,f:integer;
begin
k:=0;
f:=0;
writeln ('В начале введите сколько чисел будет в вашей последовательности, а потом введите последовательность целых чисел.');
readln(n);
for i:=1 to n do
begin
readln(a);
if (a mod 10=5) and (a mod 5=0)
then
k:=k+a;
f:=f+1;
end;
writeln('Среднее арифметическое чисел, кратных 5, но не заканчивающихся на 0: ',k/f);
end.
More Questions From This User See All
Answers & Comments
Verified answer
For i:=1 to n dobegin
readln(a);
if (a mod 10=5)
then
begin
k:=k+a;
f:=f+1;
end;
end;