Дан массив из 25 чисел, найти среднее арифметическое элементов массива, сумму массива и кол-во чётных и не чётных элементов массива. элементы вводятся с гсч.

Var
  A: array[1..25] of integer;
  mean: real;
  qodds, qevens, i: byte;
  sum: integer;
begin
  sum := 0;
  qodds := 0;
  qevens := 0;
  randomize;
  for i := 1 to 25 do
  begin
    A[i] := random(41)-20;
    sum := sum + A[i];
    if (A[i] mod 2 = 0) then
      qevens := qevens + 1
    else
      qodds := qodds + 1;
    write(A[i], ' ');
  end;
  writeln(#13 + 'Среднее арифметическое = ', (sum / 25):0:2);
  writeln('Сумма = ', sum);
  writeln('Четных = ', qevens);
  writeln('Нечетных = ', qodds);
end.

program znanija;

uses CRT;

Var n,k,sum,ch,nch: integer;

sa: real;

M: Array[1..25] of integer;

begin

write('Ведите N: ');readln(n);

for k:=1 to 25 do

begin

M[k]:=random(n);

sum:=sum+M[k];

if (M[k] mod 2 = 0) then

begin

ch:=ch+1;

end else

begin

nch:=nch+1;

end;

end;

sa:=sum/25;

Writeln('Среднее арихметическое - ',sa);

Writeln('Сумма чисел - ', sum);

Writeln('Количество чётных - ', ch);

Writeln('Количество не чётных - ', nch);

writeln('--Числа--');

for k:=1 to 25 do

begin

Write(m[k],', ');

end

end.