дана матрица А(5х5). Найти количество положительных элементов в каждом из столбцов. И результат вывести на печать в файл

[Милашечка]

дана матрица А(5х5). Найти количество положительных элементов в каждом из столбцов. И результат вывести на печать в файл
пожалуйста помогите написать эту программу в паскале и блок схему если не сложно

[Stilet]

Примерно так:

var a:array[1..5,1..5] of double;b:array[1..5] of integer;
i,j:integer;
begin
 for i:=1 to 5 do for j:=1 to 5 do begin
   readln(a[i,j]); 
   if(a[i,j]>0) then inc(b[j])
 end;
 assign(output,'file');rewrite(output);
 for i:=1 to 5 do writeln(b[i]);
 close(output);
end.

Не проверял.

[Милашечка]

что то не получается...

[Stilet]

Бывает... )