Функция в параметре другой функции..

[templllar]

Помогите пожалуйста глупому студенту!

Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой ф-ии f . Эта ф-ия должна быть формальным параметром разрабатываемой процедуры. Условие второй части задания предполагает обязательное использование разрабатываемой процедуры и передачу ей через параметры указанный во второй части задания ф-ий.:

Условие:
Для массива С из n элементов составить процедуру, определяющую кол-во положительных значений f(с) и отрицательных.

Используя в качестве f натуральный логорифм, определить в скольких строках матрицы А кол-во положительных значений f(A) больше отрицательных.

Эх, не легка жизнь программистов

[alexBlack]

Вопрос-то какой ?
Вот код первой задачи.

type
   myfunc = function (x:real):real;

function testFunction(x:real):real;
begin
   testFunction := cos(x);
end;

procedure testArray(f:myfunc);
const N = 10;
var C:array [1..N] of real;
    i, CP, CN:integer;
    x:real;
begin
   for i:=1 to N do C[i] := random(3);

   CP := 0; CN := 0;
   for i:=1 to N do begin
      x := f(C[i]);
      if x < 0
      then inc(CN)
      else inc(CP);
   end;
   writeln(CN);
   writeln(CP);
end;

testArray(testFunction);

С матрицей по аналогией. Надеюсь сами разберетесь.

[templllar]

так это все одна задача, я не пойму что вообще требуется...чтож, спасибо, попробую разобраться