С помощью блок схемы либо Паскаля. Составь те метод для решения

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrReal('Вводите:',ReadInteger('n='));
  Writeln('Количество нулевых равно ',a.Where(x-gt;x=0).Count)
end.

Пример
n= 8
Вводите: 3 1.5 -2.4 0 8 0 0.2 1
Количество нулевых одинаково 2

Var n,i,k:integer;
     a:array [1..50] of real;
begin
     write('Введите целое N = '); readln(n);
     for i:=1 to n do
     begin
          write('a[',i,'] = '); readln(a[i])
     end;
     k:=0;
     for i:=1 to n do
           if a[i]lt;gt;0 then k:=k+1;
     writeln('k = ',k)
end.