В ЧЁМ ОШИБКА? program z4; var a,i,n,k,f:integer; begin k:=0; f:=0; writeln ('В начале введите сколько чисел будет в вашей последовательности, а потом введите последовательность целых чисел.'); readln(n); for i:=1 to n do begin...
В ЧЁМ ОШИБКА?
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.
Гость
Ответ(ы) на вопрос:
Гостьfor i:=1 to n do
begin
readln(a);
if (a mod 10=5)
then
begin
k:=k+a;
f:=f+1;
end;
end;
Не нашли ответ?
Похожие вопросы