Народ!

[zigzags]

Кое-что не понимаю в паскале)
Вот такая задачка помогите плиз!!
Даны 2 массива вещественных из 26 и 30 элементов.Написать программу которая выводит на экран колличество ненулевых элементов.
Ввод массива оформить как процедуру,нахождения колличества как функцию.
заранее благодарю!

[Пепел Феникса]

за 50р сделаю.

[zigzags]

Сообщение от Пепел Феникса

за 50р сделаю.

даваю я те скину по веб мани
но нужно срочно

[Пепел Феникса]

стукни в асю, или мыло напиши.

[Volt]

const an=26; bn=30;

function kol(var a: array  of integer;  b: array of integer):integer;
var count, i:integer;
begin
count:=0;
for i:=1 to an do
if a[i]=0 then inc(count);

for i:=1 to an do
if b[i]=0 then inc(count);

result:=count;

end;

procedure vvod(var a: array  of integer;  b: array of integer);
var i:integer;
begin
for i:=1 to an do
readln(a[i]);

for i:=1 to bn do
readln(b[i]);

end;

var a:  array [1..an]  of integer;  b: array [1..bn] of integer;
begin
vvod(a, b);
writeln(kol(a, b));
end.