В массиве А из 20 целых чисел введеных с клавиатуры. Найти среднее арифметическое элементов кратных трём.
Answers & Comments
vunderkid
Var A: array [1..20] of integer; n,i,sum,v: integer; begin writeln('Введите 20 целых чисел'); sum:=0; n:=0; for i:=1 to 20 do begin readln(v); A[i]:=v; if v mod 3=0 then begin Inc(sum,v); Inc(n); end;
end; if n=0 then writeln('чисел кратных трём нет') else writeln('Среднее арифметическое',sum div n); end.
Answers & Comments
A: array [1..20] of integer;
n,i,sum,v: integer;
begin
writeln('Введите 20 целых чисел');
sum:=0;
n:=0;
for i:=1 to 20 do begin
readln(v);
A[i]:=v;
if v mod 3=0 then
begin
Inc(sum,v);
Inc(n);
end;
end;
if n=0 then
writeln('чисел кратных трём нет')
else
writeln('Среднее арифметическое',sum div n);
end.