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

[Карась]

Был найден небольшой косяк в алгоритме..

For y := 1 To n1 Do
      begin
        Flag := True; // Надо присвоить True здесь. 
                          // Иначе если первая строка изменит Flag на False то
                          // остальные строки даже если они верны не пройдут
                          // верную обработку.  
        For x := 1 To m1 Do
        If Mass[x,y] Mod 2 = 1 Then Flag := False;
        If Flag = True Then Writeln(y);
      end;

[anco]

ура, теперь работает=))спасибо большое

а как работать в прцедуре в параметре..

условие задачи то же самое

[Карась]

Не забывайте про кнопку "Редактировать сообщение". Модераторы не любят несколько постов подряд.....

а как работать в прцедуре в параметре..

Непонятный вопрос. Переформулируйте....

[anco]

Uses
Crt;
Type ar=array[1..10,1..10] of integer;
Var
a:ar;
n,m,i,j,k:integer;

Procedure vvod(stroka,stolba:byte);
begin
for i:=1 to stroka do
for j:=1 to stolba do read(a[i,j]);
writeln;
end;

[Карась]

Ну вижу процедуру.... и что с ней делать надо?

[anco]

Procedure vvod(stroka,stolba:byte);--с помощью их нужно решить
1.ввод
2.обработака(сортировка)
3.вывод

подпрограммой называется

[Карась]

Первую вы уже написали. Осталось ещё две

[anco]

да, и я не знаю как это сделать

[Карась]

В 16 посте Вы разместили код процедуры... Так вот сообственно так и надо делать.

Дальше аналогично.

[anco]

все равно не понимаю=((