Среди N произвольных вещественных чисел найдите количество не равных нулю. - Pascal ABC

Формулировка задачи:

Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

Решение задачи: «Среди N произвольных вещественных чисел найдите количество не равных нулю.»

Листинг программы

program fst;
var i,n,s: integer;
  ch: real;
begin
  write('n='); readln(n);
  s:=0;
  for i:=1 to n do
  begin
    readln(ch);
    if (not(ch=0)) then inc(s) else
  end;
  writeln(s);
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующую задачу: среди N произвольных вещественных чисел находит количество чисел, которые не равны нулю. Вот список действий, представленных в коде, с указанием номеров строк и названий переменных:

Строка 2: write('n='); readln(n); - программа запрашивает у пользователя значение переменной N и сохраняет его в переменную n.
Строка 3: s:=0; - переменная s инициализируется значением 0.
Строка 4: for i:=1 to n do - цикл выполняется от 1 до N.
Строка 5: readln(ch); - программа запрашивает у пользователя следующее число и сохраняет его в переменную ch.
Строка 6: if (not(ch=0)) then inc(s) else - проверяется, равно ли число 0. Если нет, то значение переменной s увеличивается на 1.
Строка 7: writeln(s); - программа выводит значение переменной s.