Сумма положительных элементов массива

[Monst3r]

Напишете пожалуйста программу на Паскаль, которая вычисляет сумму положительных элементов массива имеющих нечётные номера..
От этого зависит сдача сессии..

БУДУ ОЧЕНЬ благодарен..

[Monst3r]

Пожалуйста помогите!!! ((((

[Serge_Bliznykov]

s := 0;
for i:=1 to N do
  if odd(i) and (A[i]>0) then s := s + A[i];
WriteLn('Summa = ', s);

[Monst3r]

А можно полную программу?/
а то я на первом курсе, и еще зеленый..
Заранее благодарен!!

[Monst3r]

Сообщение от Serge_Bliznykov

s := 0;
for i:=1 to N do
  if odd(i) and (A[i]>0) then s := s + A[i];
WriteLn('Summa = ', s);

А можно полный код программы? а то я не совсем въезжаю(

[Serge_Bliznykov]

а как же Вы дальше учиться собираетесь, если программа из 10 строчек кода для вас темень непроглядная?!

const N =10;
var i, S : integer;
   A : array[1..N] of integer;
begin
  for i:=1 to N do begin
     Write('  Vvedite ',i,' element massivva: ');
     Readln(A[i]);
  end;
  s := 0;
  for i:=1 to N do
     if odd(i) and (A[i]>0) then s := s + A[i];
  WriteLn('Summa = ', s);
  Readln
end.

[Monst3r]

Спасибо большое))) я уже разобрался! ))