Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца - Turbo Pascal

Формулировка задачи:

Всем привет. Условие: Есле максимальный элемент массива a[i,j] положителен, то найти количество нулевых элементов каждого столбца иначе удвоить отрицательные элементы Вот мой код:
Program pr1;
uses crt;
var a: array [1..100, 1..100] of integer;
    n,m,i,j,k,max:integer;
begin
    clrscr;
    writeln('n=');
    readln(n);
    writeln('m=');
    readln(m);
    k:=0;
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            write(a[i , j]:4);
            readln(a[i,j]);
        end;
            writeln;
    end;
            for i:=1 to n do
            for j:=1 to m do
            
            if a[i,j]>0 then
             if a[i,j]>max then
            max:=a[i,j];
            
            for i:=1 to n do
            for j:=1 to m do
            begin
            
                if a[i,j]=0 then   k:=k+1;
                end;
                writeln('k=',k);
                end
                else
                begin
                for i:=1 to n do
                for j:=1 to m do
                a[i,j]:=a[i,j]*2;
               end;
                for i:=1 to n do
                begin
                for j:=1 to m do
                begin
                    write(a[i , j]:4);
                    end;
                    writeln;
                    end;
                    readln;
                    end.
Поправьте, буду очень благодарен Добавлено через 35 минут upp

Код к задаче: «Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца - Turbo Pascal»

textual
program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, m, i, j, k, max: integer;
 
begin
  clrscr;
  write('n=');
  readln(n);
  write('m=');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('a[',i,',', j,']=');
      readln(a[i, j]);
    end;
 
  for i := 1 to n do
    for j := 1 to m do
        if a[i, j] > max then
          max := a[i, j];
 
  if max>0 then
  begin
    for j:=1 to m do
    begin
      k:=0;
      for i:=1 to n do
        if a[i,j]=0 then inc(k);
      writeln('Г‚ ',j,'-Г¬ ñòîëáöå ',k,' Г*óëåé');
    end;
 
  end else
  begin
    writeln('Ïîëó÷åГ*Г*Г*Гї Г¬Г*òðèöГ*:');
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        a[i,j]:=2*a[i,j];
        write(a[i,j]:4);
      end;
      writeln;
    end;
  end;
  readln;
end.

14   голосов, оценка 3.929 из 5


СОХРАНИТЬ ССЫЛКУ