Paskal матрица

[Fromki]

Помогите решить а паскале плиз...
Вводится матрица MT (n,m) с цифровой информацией. Составить программу нахождения в столбцах матрицы положительных (>0) элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы будут представлены числами, полученными от деления суммы положительных элементов по столбцу на значение конкретного элемента. Исходные, промежуточные и результатные данные вывести на дисплей.

[Fromki]

ну напишите код программы плиз, мне очень нужно

[IvaniuS]

каким образом представлена матрица?

[rubius2008]

Сообщение от Fromki

Помогите решить а паскале плиз...
Вводится матрица MT (n,m) с цифровой информацией. Составить программу нахождения в столбцах матрицы положительных (>0) элементов, подсчета их количества и сумм. Получить новую матрицу, в которой элементы будут представлены числами, полученными от деления суммы положительных элементов по столбцу на значение конкретного элемента. Исходные, промежуточные и результатные данные вывести на дисплей.

Если всю прогу целиком писать, то не бесплатно (ася 600-927-970).
Если что-то помочь конкретно по написанному вами коду то можно бесплатно.

[Hacker19_90]

Код весь я не напишу! Но! Помогу не которыми кусками кода!
1) >0 количество

function GetCount (M: matrix; n: integer): integer;
var
    i, j: integer;
    count: integer;
begin
    count := 0;
    for i := 1 to n do
         for j := 1 to n do
             if M[i,j] > 0 then Inc(count);
    GetCount := count;
end;

[Hacker19_90]

2) >0 сумма

function GetSum (M: matrix; n: integer): integer;
var
    i, j: integer;
    sum: integer;
begin
    sum := 0;
    for i := 1 to n do
         for j := 1 to n do
             if M[i,j] > 0 then Inc(sum, M[i,j]);
    GetSum := sum;
end;

[Hacker19_90]

3) Новая матрица

procedure GetNewMatrix (M: matrix; var N: newmatrix; n: integer);
var
    i, j, l: integer;
    sum: integer;
begin
    for i := 1 to n do
         for j := 1 to n do
         begin
               sum := 0;
               for l := 1 to n do
                    if M[l,j] > 0 then Inc(sum, M[i,j]);
         N[i,j] := (sum/M[i,j]);
         end;
end;