Найти номер столбика, все елементы которого положительные (Turbo Pascal)

[Marisha89]

Извините, скинула не тот код)
А Вы бы не кидались на людей, нервы целее были бы.
Не хотите помогать - просто не читайте.
Вот так Вас устроит?

program zadacha_10;
uses    crt;
const   n=2; m=4;
var
        a        : array[1..n,1..m] of real;
        i,j      : integer;
        s,s1     : boolean;
begin
    repeat
     for i:=1 to n do
      for j:=1 to m do
        begin
          write('a[',i,',',j,']= ');
          readln(a[i,j]);
        end;
     writeln('Исходная матрица:');
     for i:=1 to n do
      begin
       for j:=1 to m do
         begin
           write(a[i,j]:10:4);
         end;writeln;
      end;writeln;
     s:=True;
     write('Номера столбцов со всеми положительными элементами: ');
     for j:=1 to m do
      begin
       s1:=True;
       for i:=1 to n do
         begin
           if a[i,j]<=0 then
            begin
              s1:=False;break;
            end;
         end;
       if s1 then begin write(j:4);s:=False;end
      end;
      if s then writeln('Отсутствуют.')
           else writeln;
     writeln;write('<Esc> - выход, любая другая - повторение...');
     until readkey=#27;
end.

[Vanta11a]

Извините, скинула не тот код)

А вы замените в пятницу вечером рабочий код на нерабочий, желательно где-нибудь на боевом сервере. Гарантирую, столько нового о себе узнаете, мммм...

Вот так Вас устроит?

Ну я бы изначально предположил, что подходящих столбцов нет. В Вашем коде при появлении хотя бы одного столбца с отрицательным элементом выйдет строка "Отсутствуют". Бага, стоит исправить.

[Marisha89]

Так исправьте, если можете. А не можете, то успокойтесь и не придирайтесь. На звание специалиста здесь претендуете Вы а не я.

[Vanta11a]

Вы ведете себя так, словно МНЕ надо исправить ВАШИ косяки. Мне оно не надо, достаточно указать на их наличие и предложить вариант исправления. Не хотите править - да пожалуйста, софтину Вам сдавать. Но не удивляйтесь, если препод задаст те же вопросы.

[Marisha89]

Препод мне ничего не задаст, я сама пробую развязывать задачи. После Вашего указания "на косяки" была выложена рабочая програма. И вот в ней Вы никаких косяков не указываете, а только без всякой конкретики придираетесь. Я проверила с разными комбинациями - она работает. Что именно Вам не нравится?

[Vanta11a]

И вот в ней Вы никаких косяков не указываете, а только без всякой конкретики придираетесь. Я проверила с разными комбинациями - она работает. Что именно Вам не нравится?

Тут ошибся, извините. Спутал флаги.

[Marisha89]

Спасибо за участие)