Массив с наибольшим количеством нулевых элементов

[Guest]

Даны одномерные массивы А и В. выдать на печать массив с наибольшим количеством нулевых элементов. вычисление количества нулевых элементов в массиве произвольной длины оформить как функцию.
исходные данные:
А=(1.6, -2.5, 0, 0.1, 0, 0, -7.2);
B=(0.75, 0.001, 0, -1.1, 0, 0.1, 0, 0.1, 0, 0.4, 0);
Заранее благодарю!

 

[Dock1100]

вычисление количества нулевых элементов в массиве произвольной длины
(масив одномерный)

function kolvonuley(a:array of real; l:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to l do
if a[i]=0 then k:=k+1;
kolvonuley:=k;
end;

ЗЫ Код писал прямо тут, могут быть ошибки