Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8
Answers & Comments
recor65
Const n=100; var m:array[1..n] of integer; a,b,i,j,k:integer;
begin k:=0; b:=0; writeln ('введите количество цифр'); read (j); for i:=1 to j do begin read(a); if (a mod 8) = 0 then begin b:=b+a; k:=k+1; end; end; write(b/(k)); end.
Answers & Comments
var
m:array[1..n] of integer;
a,b,i,j,k:integer;
begin
k:=0;
b:=0;
writeln ('введите количество цифр');
read (j);
for i:=1 to j do
begin
read(a);
if (a mod 8) = 0 then
begin
b:=b+a;
k:=k+1;
end;
end;
write(b/(k));
end.