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

[anco]

помогите пожалуйста решить задачку.
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти и вывести номера только тех строк, все элементы которых четные.

[Карась]

Ждёмс Ваших наработак...

[anco]

Uses Crt;
Var a:array[1..10,1..10] of integer;
    n,m,i,j:integer;
    s:array [1..10] of integer;
Procedure InputOutput;
 Begin
  ClrScr;
  writeln('Количесвто строк-');
  readln(n);
  writeln('Уоличество столбцов-');
  readln(m);
   for i:=1 to n do
    for j:=1 to m do
     begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
     end;
     writeln;
    ClrScr;
    writeln('матрица ');
     for i:=1 to n do
      begin
       for j:=1 to m do write(a[i,j]:5);
       writeln;
      end;
      writeln;
 end;

дальше я не знаю=(

я хоть правильно начала??

помогите пожалуйста , буду очень благодарна

[Карась]

Ну, вообщето какойто бред..

Давайте с начала:
===Раздел пременых==
1. Нужно обявить две переменые типа Integer. Назовём их x и y. Они у нас будут индексами массива.
2. Нужно обьявить двумерный массив. Назовём его Mass. Для определения его размерности потребуется ещё две переменые типа Integer. Назовём их n и m.
3. Также обьявим переменую Flag типа Boolean. Этот флаг мы будем выставлять в True, и будет хранить в себе результат обработки строки. А именно о чётности элементов.

Итого раздел переменных выглядит так:

Var x, y, n , m : Integer;
      Mass : Array [1..n, 1..m] of Integer;
      Flag : Boolean;

==Ввод массива==
1. Для начала запросим размерность.
2. Потом классика. Двойной цикл For.

Write('n = '); Readln(n);
Write('m = '); Readln(m);
For y := 1 To n Do
  For x := 1 To m Do
    Begin
      Write('Mass[', x, ',', y,']=');
      Readln(Mass[x,y]);
    End;

==Обработка==
1. Перебор опятьже в двойном цикле.
2. Переменая Flag выставляется(на всякий случай) в True.
3. Как только нарушается условие чётности то переменую меняем на False.
4. При переходе к обработке второй строки проверяем переменую и если надо печатаем номер строки.

Flag := True;
For y := 1 To n Do
  Begin
    For x := 1 To m Do If Mass[x,y] Mod 2 = 1 Then Flag := False;
    If Flag = True Then Writeln(y);
  End;

[anco]

Спасибо большое!!вопрос: почему бред??у меня вроде бы работает...где ошибка??

A kak vyvesti nomera strok?

Pomogite pozhalujsta ya napisala tak writeln('nomer stroki')

Подряд сообщения не постим. Есть кнопка редактирования. Alex21

[puporev]

Вот довольно простое решение, без излишеств.

Uses Crt;
Var a:array[1..10,1..10] of integer;
    n,m,i,j,k:integer;
Begin
ClrScr;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov 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;
ClrScr;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:5);
    writeln;
  end;
for i:=1 to n do
   begin
    k:=0;
    for j:=1 to m do
    if a[i,j] mod 2=0 then
      begin
        k:=k+1;
      end;
    if k=m then writeln('Stroka ',i);
   end;
readln
end.

[Карась]

Сообщение от anco

A kak vyvesti nomera strok?

В моём коде уже есть вывод номера строки:

Flag := True;   
For y := 1 To n Do   
  Begin   
    For x := 1 To m Do If Mass[x,y] Mod 2 = 1 Then Flag := False;   
    If Flag = True Then Writeln(y);   // Вот он здесь выводит номер.
  End;

[anco]

Карась. я тоже так думала, но почему я не вижу результата???

[Карась]

Сообщение от anco

Карась. я тоже так думала, но почему я не вижу результата???

Показывайте весь код целиком. У меня всё работает.

[anco]

Program z3_4;
  Uses
    Crt;
  Const
    N=10;
    M=10;
	Var
    x, y,n1,m1: Integer;
	  Mass : Array [1..n,1..m] of Integer;
    Flag : Boolean;
  Begin
    ClrScr;
  	write('количество строк ');
    readln(n1);
   	write('количество столбцов ');
    readln(m1);
	For y := 1 To n1 Do
	  for x := 1 To m1 Do
	    begin
	      write('Mass[', x, ',', y,']=');
	      readln(Mass[x,y]);
	    end;
    for y:=1 to n1 do
      begin
        for x:=1 to m1 do write(Mass[x,y]:5);
        writeln;
      end;
      writeln;
	Flag := True;
	For y := 1 To n Do
	  begin
	    For x := 1 To m1 Do If Mass[x,y] Mod 2 = 1 Then Flag := False;
	    If Flag = True Then Writeln(y);
	  end;
End.