В одномерном массиве М, состоящем из 10 целых чисел, найти: а) количество нулевых элементов: б) сумму элементов, больших - 4: В) полу сумму элементов с четными индексами: г) произведение нечетных элементов

Var a: array[0 ... 9] of Integer;

i, n, nol, otr, nochet: Integer;

chet: Real;

begin

nochet:=1;

for i:=0 to 9 do

begin

writeln ('Введите ', i+1,' число') ;

readln (n) ;

a[i]:=n;

end;

for i:=0 to 9 do

begin

if a[i]=0 then nol:=nol+1;

if a[i]>-4 then otr:=otr+1;

if i mod 2=0 then chet:=chet+1 else nochet:=nochet*a[i];

end;

chet:=chet/2;

writeln ('Кол-во нулевых элементов: ', nol) ;

writeln ('Сумма элементов, больше - 4: ', otr) ;

writeln ('Полу-сумма элементов с чётными индексами: ', chet) ;

writeln ('Произведение нечётных элементов: ', chet) ;

end.