Что делает программа?
Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do
begin
readln (x [i]) ;
if i >0 then s:=s+x[i] ;
end;
s:=s/100
writeln (s) ;
end.

gonciarandrei2p98y2m: a) сумму значений элементов массива с четными индексами;
b) сумму значений положительных элементов;
c) количество элементов, значение которых четное число;
d) среднее арифметическое значение положительных элементов массива

xxxxchromexxx: a)