подпрограмма функция

[алена9191]

помогите,пожалуйста,написать программу с помощью подпрограммы-функции!

выч-ть сумму полож. эл-тов каждой строки для матриц А(10.12) В(15.10)

заранее спасибо!

[Stilet]

А что не получается? Есть наработки?

[алена9191]

function sum(a,b : mas; i, j : integer) of real;
var t : integer;
begin
sum := 0;
for i :=1 to i do begin
if (a[t] > 0) then sum := sum+1;
end;
end;

написала только саму функцию и то если верно

[Stilet]

function sum(a,b : mas; i, j : integer) of real;

Открой учебник и почитай синтаксис описания функции. там не of.
Ну и в вычислении нужно не единицу прибавлять а a[t] - тогда получишь сумму, а это ты злосно содрала пример вычисления количества.
Теперь сдери описание типа mas, и переменных и пробуй написать программу целиком.