Найти в массиве в (10) сумму элементов под четными номерами

А вот так подойдет?

uses Crt;

const n=10;

Type Vec=array [1 ... n] of integer;

var B: Vec;

i, Sum : integer;

begin

ClrScr;

for i:=1 to n do

begin

B[i]:=10+random (21) ;

if (i mod 2 = 0) then Sum:=Sum+B[i];

Write (B[i]:4) ;

end;

WriteLn;

WriteLn ('Sum = ', Sum) ;

ReadLn;

end.