МАССИВЫ

[КсЕниЯ Vi]

В МАССИВЕ НУЖНО НАЙТИ СУММУ ЭЛЕМЕНТОВ КОТОРЫЕ СТОЯТ НА ЧЕТНЫХ МЕСТАХ (INTEGER) В ДЕЛФИ ПОЖАЛУЙСТА ОЧЕНЬ НАДО!!!((((

[DoDge_VipeR]

i:=2;s:=0;
while i<=n do begin
s:=s+a[i];
inc(i,2);
end;

[КсЕниЯ Vi]

Спасибочки ОГРОМНОЕ а,а это и всё?

[Roof]

2 КсЕниЯ Vi -тебе привели главный алгоритм по твоему вопросу. Вот тебе с оберткой.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 11; //длина одномерного массива
var
  a: array[1..n] of integer; // массив
  i: integer; // счетчик
  S: integer; //сумма
begin
  Randomize;
  //заполняем массив псевдослучайными значениями
  for i := 1 to n do
  begin
    a[i] := Random(100);
    write(a[i], '  ');
  end;
  writeln;
  //считаем сумму
  i := 2;
  s := 0;
  while i <= n do
  begin
    s := s + a[i];
    inc(i, 2);
  end;
  //выводим сумму
  WriteLn('Summa ', S);
  readln;
end.

[КсЕниЯ Vi]

БЕЗКРАЙНЕ БЛАГОДАРНА!!!!()))