Дана последовательность чисел

[fara1992]

спасибо ещё раз, что помог.завтра спрошу у кого нибудь что не правильно.

[ROMA2PVT]

Помощь заключается в том чтобы на нужную мысль натолкнуть а не написать всю программу за вас.

uses
  CRT;

var
  a: array[1..50] of integer;
  n, i, sum, sum2, kol: integer;
  sr: real;

begin
  clrscr;
  sum := 0;
  sum2 := 0;
  kol := 0;
  randomize;
  write('Введите количество элементов: ');
  readln(n);
  writeln('Массив: ');
  for i := 1 to n do
  begin
    a[i] := random(10) - 4;
    write(a[i]:2, ' ');
    if i mod 2<>0 then
    begin
      sum := sum + a[i];
    end;
    if i mod 2=0 then
    begin
      inc(kol);
      sum2 := sum2 + a[i];
      sr := sum2 / kol;
    end;
  end;
  writeln;
  writeln('Сума чисел с нечётными индексами:=', sum);
  writeln('Среднее арифметическое чисел с чётными индексами:=', sr:1:3);
  readln
end.

Советую почитать учебники.Ато вы даже наверное и непоняли что я отметил красным цветом в строке.
P.S:это была запятая.Эт я так на всякий случай говорю.

[fara1992]

запятую то я исправил, но массив не смог ввести правильно.
Спасибо выручил!