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

[fara1992]

Дана последовательность чисел aj (i=1,2,...N)
Подсчитать сумму чисел с нечетными индексами и среднее арифметическое чисел с четными индексами.Помогите пожалуйста решить задание...

[ROMA2PVT]

  sum := 0;
  sum2 := 0;
  kol := 0;
for i := 1 to n do
  begin
    if odd(i) then
    begin
      sum := sum + a[i];
    end;
    if not odd(i) then
    begin
      inc(kol);
      sum2 := sum2 + a[i];
      sr := sum2 / kol;
    end;
  end;
  writeln;
  writeln('Сума чисел с нечётными индексами:=', sum);
  writeln('Среднее арифметическое чисел с чётными индексами:=', sr:1:3);

[fara1992]

спасибо.а как можно без функции odd, просто мы её не проходили ещё..

[ROMA2PVT]

if odd(i) then

=>

if i mod 2<>0 then

if not odd(i) then

=>

if i mod 2=0 then

[fara1992]

Program abc;
uses crt;
const n=10;
var
a:array [1..n] of integer;
sum, sum2, i, sr,:integer;
k:real;
begin
sum := 0;
sum2 := 0;
k := 0;
for i := 1 to n do
begin
if i mod 2<>0 then
begin
sum := sum + a[i];
end;
if i mod 2=0 then
begin
k:=k+1;
sum2 := sum2 + a[i];
sr := sum2 / k;
end;
end;
writeln;
writeln('Сума чисел с нечётными индексами:=', sum);
writeln('Среднее арифметическое чисел с чётными индексами:=', sr:1:3);
end.
ошибка вылазиет, ожидался индентификатор.как то надо последовательность ввести..помоги)

[ROMA2PVT]

вы же до этого писали программы на массивы.Что досих пор ненаучились массив заполнять?

[fara1992]

писал, но что то не получается,может надо рандом ипользовать?

[ROMA2PVT]

А какая разница.Можно рандомно заполнить а можно и ручной ввод.

[fara1992]

А изза чего тогда ошибка может быть?Ожидался идентификатор sum, sum2, i, sr,:integer;после двоеточия

[ROMA2PVT]

ну во первых заполни массив перед суммированием элементов.
ну а во вторых

sum, sum2, i, sr,:integer;

вот из-за этого и ошибка.