Найти сумму элементов, стоящих на четных местах в массеве из 10 элементов, заданных с клавиатуры

uses crt; var a: array[1..10] of real; i: integer; s: real; begin

  writeln('введите массив: ');   for i: =1 to 10 do  begin    readln(a[i]);     if (i mod 2=0) then s: =s+a[i];   end;   writeln;   write('summa=',s); end.

var a: array [1..10] of integer;

        i,s: integer;

begin

for i: =1 to 10 do

begin

readln(a[i]);

if i mod 2=0 then s: =s+a[i];

end;

writeln(a[i]);

end.

Program adelia17; uses crt; const n=30; var   matr: array [1..n] of integer;   i,pos,neg,zero: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); writeln();   writeln('программа находит количество положительных, отрицательных и нулевых элементов массива');   pos: =0; neg: =0; zero: =0;   randomize;   writeln('массив: ');   for i: =1 to n do   begin           matr[i]: =random(100)-50;           write(matr[i]: 4,' ');           if matr[i]> 0 then pos: =pos+1;           if matr[i]< 0 then neg: =neg+1;           if matr[i]=0 then zero: =zero+1;       end;       writeln();   writeln('количество положительных элементов равно ',pos);   writeln('количество отрицательных элементов равно ',neg);   writeln('количество      нулевых      элементов равно ',zero); end.

Const n = 30; var a: array [1..n] of integer; b,c,d,i: integer; begin        writeln('vvedite massiv');           for i: =1 to n do        readln(a[i]);         b: =0; c: =0; d: =0;         for i: =1 to n do begin        if a[i] = 0 then inc(b);         if a[i] > 0 then inc(c);         if a[i] < 0 then inc(d);         end;         writeln('kol-vo ravnih 0 - ',b);         writeln('kol-vo bolshe 0 - ',c);         writeln('kol-vo menshe 0 - ',d);         readln; end.