В массиве А из 20 целых чисел введеных с клавиатуры. Найти среднее арифметическое...

Question

В массиве А из 20 целых чисел введеных с клавиатуры. Найти среднее арифметическое элементов кратных трём.

Answer 1

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.