Дан массив из 25 чисел, отыскать СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ элементов массива, СУММУ

до скольки могут быть числа

в ГСЧ

Они случайные, а количество их 25

числа до какого предела могу быть

типо от 0 до 100 или от 0 до 100000

Я понял, они без предела

без предела не может быть обязаны быть в условии рамки

от 1 до N нельзя сделать? тогда пусть будет 50

ок

Если всё будет работать, давай я для тебя 50р скину?

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.

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.