Написать программу,которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива из 10 целых чисел. Помогите пожалуйста,плохо понимаю эти программы(((

var a:array [1..10] of integer;    i,count:integer;    s:real;begin....//тут ты заполняешь массив как тебе надоs:=0;count:=0;for i:=1 to 10 do begin  if a[i]<>0 then begin  //если элемент ненулевой то    s:=s+s;             //суммируем их и увеличиваем счетчик на 1    count:=count+1;  end;end;s:=s/count;writeln('Среднее значение=', s:0:0);end.