Задача на Паскале !№1

[Nethead]

Дана матрица А 3х5 из вещественных чисел, найти кол-во положительных елементов в каждом столбце...

[ПН...]

....
пусть M - это матрица
sum:=0;
for j:=1 to 5 do
begin
if j<>1 then WriteLn('Число положительных чисел в ',j,'-ом столбце равно ',sum);
sum:=0;
for i:=1 to 3 do
begin
if M[i,j]>0 then inc(sum);
end;
end;

[Nethead]

есть еще много способов

[ПН...]

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

[Nethead]

самый сложный и замудренный

[ПН...]

Простой в смысле - стандартный в решении. Приведи проще - никогда не откажусь от знаний, как упростить код.

[Duncon]

Увезите тему в решите мне задачку, да и еще пару не мешало бы..

[Колядин Максим]

Какая разница где расположена?
NetHead, вот как я думаю:
______________________________________________________________________

PROGRAM matrix;
const
n=3;
m=5;
type
matr=array [1..n,1..m] of real;
Var
i: matr;
b,j: integer; {индекс столбца и строки}
s: real; {сумма}
Begin
................ зачем я пишу?? Ведь ответ уже существует"""