МАТРИЦА ПАСКАЛЬ НОМЕРА СТРОК ЧЁТНЫЕ

[newgener]

ДАна целочисленная матрица MxN. НАйти номера строк, содержащих только чётные значения.

[DoDge_VipeR]

for i:=1 to m do
begin
t:=true;
for j:=1 to n do
if odd(a[i,j]) then begin t:=false;break;end;
if t then write(i:4);
end;

[DoDge_VipeR]

/////////////////////

[newgener]

спасибо большое, но я мало чего понял, можно целиком

[ROMA2PVT]

Матрицу заполни и всё.Чё сложного то.

[newgener]

можно полностью, я даже заполнять не знаю как... ПОЖАЛУЙСТА

[newgener]

ну пожалуйста

[ROMA2PVT]

Вот и чё трудно было.
DoDge_VipeR тебе написал основную часть.Заполнить массив уже лень.

Var
a:array[1..100,1..100] of integer;
i,j,m,n:integer;
t:boolean;
begin
randomize;
write('ВВедите количество строк: ');
readln(m);
write('Введите количество столбцов: ');
readln(n);
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
write(a[i,j]:3,' ');
end;
writeln;
end;
writeln;
for i:=1 to m do
begin
t:=true;
for j:=1 to n do
if odd(a[i,j]) then
begin
t:=false;
break;
end;
if t then write('Строка содержащая только чётные элементы:=',i:4);
end;
writeln;
end.

[newgener]

спасибо большое ROMA, только он только матрику показывает, а дальше (Строка содержащая только чётные элементы) не показывает. Пррограмма заканчивается так

ВВедите количество строк: 5
Введите количество столбцов: 5
-2 -1 -2 -2 -3
-5 4 4 -1 -5
-3 0 -3 1 2
-2 -3 4 -3 3
2 -1 -5 4 -5

[ROMA2PVT]

А они у тебя есть строки то эти в показанной матрице.