[Pascal] Подсчитать количество ненулевых чисел

[Romeshek]

Задание: Подсчитать количество ненулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного T

const n=10;
var
  a,i,k,y,s:integer;
  z:array[1..n] of integer;
begin

  s:=0;
  k:=0;
  y:=0;
  randomize;
  for i:=1 to n do 
  begin
    z[i]:=random(20)-10;
    write(z[i],'  ');
    if not(z[i]<a) then
    begin
      s:=s+y;
      Inc(y);
    end;
    if (z[i]=0) and (i mod 2<>0) then inc(k);
  end;
  writeln;
  writeln('Среднее арифметическое=',s/n);
  writeln('Количество ненулувых чисел=',y);
end.

Что смог- написал, но что-то не считает то, что нужно. Если не сложно, подскажите. Не так давно начал изучать данный язык.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

А зачем используете переменную a вместо T ?
но это не суть.

ошибки.
1) не задаёте значение a (а лучше ввести переменную T для этой цели)
2) меньше заданного значения - это просто if (z[i]<T) then
not не нужен
3) сумму чисел надо считать так s:=s+z[i];
4) среднее арифметическое считается в вашем случае по формуле s/y
при этом надо учесть вариант, что y=0 (т.е. чисел меньше T нет совсем),
для этого нужно написать

if y=0 then WriteLn('Нет чисел меньше T') 
else writeln('Среднее арифметическое=',s/y);

5) считаете количество не нулевых в переменной k, а выводите почему-то другую переменную
должно быть,

writeln('Количество ненулевых чисел на нечётных местах = ',k);

[Romeshek]

Спасибо за разъяснение!