Двумерный массив

[Металлистка]

Помогите пожалуйста написать программу в двумерном массиве по Турбо Паскале
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента (оформить в виде функции). Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик (оформить в виде процедуры).
Спасибо)

[Stilet]

Код ввода матрицы в студию.

[NinaSSS]

попробуйте так

program massiv;
uses crt;
 type
mas1=array [1..10,1..10] of integer;
var a:array[1..10,1..10] of integer; b:array[1..10] of integer;
i,j,l,k,s,n,p,m,c,min,u,r:integer;
function kol:integer;
begin
 for i:=1 to n do begin
 for j:=1 to m do begin
write( a[i,j]:3); end; writeln; end;
   k:=0;
 for j:=1 to n do begin
 p:=0;
for i:=1 to m  do  begin
  if a[i,j]<>0 then begin p:=p+1; end; if p=n then  k:=k+1; end; p:=0;end;
  kol:=k;
end;
procedure peres;
begin
        for i:=1  to n do
 begin
s:=0; b[i]:=0;

         for j:=1 to n do
	if (a[I,j]>0) and (a[I,j] mod 2 =0)  then
          begin
           s:=s+a[i,j];
          end;b[i]:=s;
	write(' b[i]=',b[i]:3);
            end; write;
       for i:=1  to n do  begin
	min:=1000;
         for j:=i to n do
	begin
	if b[j]<min then
            begin
             min:=b[j];  l:=j;
	end;
	 end;
             c:=b[i];  b[i]:=b[l]; b[l]:=c;
	for u:=1 to n do
	 begin
	r:=a[l,u]; a[l,u]:=a[I,u]; a[I,u]:=r;
              end;
         			 end;
                            end;
 begin  clrscr;
 randomize;
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(10);
 end; end;
 kol;
     writeln('k=',k);
    Peres;
    writeln;
    writeln('Preobrazovannii massiv:');
for i:=1 to n do begin
writeln;
for j:=1 to m do
write (a[i,j],'  ');end;
  end.

[Металлистка]

спасибо,а в виде процедур не знаете как вторую часть сделать?я как раз на ней больше застряла

[NinaSSS]

я отредактировала смотрите еще раз

[Металлистка]

не работает(

[NinaSSS]

Что не срабатывает? У меня все работает

[Металлистка]

Печатаю сначала 2 строчки а потом программа зависает
и болльше ничего нет(