Question

дано 30 натуральных чисел. вычислить среднее арифметическое всех нечетных чисел(Паскаль)

Answer 1

program pas;
var
a:array[1..30] of integer;
i, k: integer;
s: real;
begin
s:=0;
k:=0;
  for i:=1 to 30 do
        readln(a[i]);
       
          for i:=1 to 30 do
            begin
              if (not(a[i]mod 2=0)) then
              s:=s+a[i];
              inc(k);
            end; 
            s:=s/k;
            write(s:4:0);
end.