задача на массивы

[lini]

нужна помощь..в программировании пока соображаю мало

Для массива С из n элементов составить процедуру, определяющую колличество положительных значений f(Ci) и колличество отрицательных значений f(Ci).
Используя в качестве f натуральный логарифм, определить в скольких строках матрицы А колличество положительных значений f(Aik) больше отрицательных.

пожалуйстааааа

я правильно начала?

program_zzz;
const N=6;
type matr=array [1..N,1..N] of real;
       fun=function (x:real):real;
       mas=array [1..N] of intager;
var  
     A:matr; B:mas; L:inmas;
     S=real,i,j,k:integer;
procedure P (B:mas, f1(C[i]),f2(c[j]):fun;
var L:inmas; var k:integer);
var i:integer;
begin k:=0;
for i: 1 to N do
if f1(c[i])>0 then begin k:=k+1;
L[k]:=i

[Greblin]

Учите синтаксис и читайте книжки, а то так вы нескоро правильно начнёте

program pr1;

const N = 6;

type mas = array[1..N] of real;

var C: array[1..N] of mas;
    count, plus, minus: integer;
    i, j: integer;
     
procedure P(var a: mas; var plus, minus: integer);
var i: integer;
begin
plus := 0;
minus := 0;
for i := 1 to N do
  if ln(a[i]) > 0 then plus := plus + 1 
  else if ln(a[i]) < 0 then minus := minus + 1;
end;

begin
writeln('Vvedite matritcu C');
for i := 1 to N do
  for j := 1 to N do
    read(C[i][j]);
count := 0;
for i := 1 to N do
  begin
  P(C[i], plus, minus);
  if plus > minus then count := count + 1;
  end;
write(count);
readln;
end.

[lini]

огромное спасибааа!!