В вещественной таблице A[1:10] найдите количество всех ненулевых элементов

Question

В вещественной таблице A[1:10] найдите количество всех ненулевых элементов

Answer 1

var a:array [1..10] of real;

s,i:integer;

Begin

  {vvod tablicy}

  for i := 1 to 10 do

    if a[i]<>0 then s:=s+1;

  writeln(s);

  

End.