Дан массив целых чисел A[1.N]. Найти сумму положительных чисел, стоящих в позициях с чётными номерами

var s , i , n : integer;
    a : array[1..100] of integer;
 
begin
    read(n);
    for i := 1 to n do
        read(a[i]);
    s := 0;
    i := 2;
    while i <= n do begin
        if a[i] > 0 then
            s := s + a[i];
        i := i + 2; 
    end;
    writeln(s);
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses  SysUtils;
var s,i,n:integer;
    a:array[1..100] of integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  readln(a[i]);
  if (i mod 2=0)and(a[i]>0)then s:=s+a[i];
 end;
writeln('Sunma=',s);
readln
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
var s,i,n:integer;
    a:array[1..100] of integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  readln(a[i]);
  if (i mod 2=0)and(a[i]>0)then s:=s+a[i];
 end;
writeln('Summa=',s);
readln
end;
 
end.

write('n=');
readln(n);

var
  Form1: TForm1;
  a: array[2..20] of integer;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
Label2.Caption:='Исходный массив';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
//проверим ввод размера
val(Edit1.Text,n,i);
if (i<>0)or not(n in [2..20])then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.ColCount:=n;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  StringGrid1.Cells[i-1,0]:=IntToStr(a[i]);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=2 to n do
if (a[i]>0)and(i mod 2=0) then s:=s+a[i];
Label3.Caption:='Сумма положительных на четных местах='+inttostr(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
for i:=2 to n do
if (a[i]<0)and(i mod 2<>0) then s:=s+a[i];
Label3.Caption:='Сумма отрицательных на нечетных местах='+inttostr(s);
end;