uses crt;  
var  
  a:array[1..100,1..100] of integer;  
  i,j,m,n,k:byte;  
  f:boolean;  
begin  
  clrscr;  
  write('m=');readln(m);  
  write('n=');readln(n);  
  randomize;  
  for i:=1 to m do  
  for j:=1 to n do  
  a[i,j]:=random(101)-50;  
  for i:=1 to m do  
  begin  
  for j:=1 to n do  
  write(a[i,j]:4);  
  writeln;  
  end;  
  k:=0;  
  for i:=1 to m do  
  begin  
  f:=true;  
  for j:=1 to n do  
  if odd(a[i,j])=true then f:=false;  
  if f=true then k:=i;  
  end;  
  writeln;  
  writeln(k);  
readln  
  end.

program z15;    
uses crt;    
var    
    k,i,j,n,m:integer;    
    a: array [1..300,1..300] of integer;    
begin    
    clrscr;    
    write ('vvedite razmer matrixi :> ');    
    readln(m,n);    
    randomize;    
    for i:=1 to m do begin    
    for j:=1 to n do begin    
    {writeln('vvesti element ',i,' : ',j,' matrixi :> ');    
    readln(a[i,j]);}    
    a[i,j]:=random(10);    
    end;    
    end;    

    writeln ('Matrixa imeet vid : ');    

    for i:=1 to m do begin    
    for j:=1 to n do    
    write(a[i,j]:2);    
    writeln;    
    end;    

    repeat    
    write('vvesti k : ');    
    readln(k);    
    until (k>=1) and(k<=m);    
    {-----------------------------------------------}    
    for j:=1 to n do    
    begin    
    writeln(a[k,j]);    
end;    
    {-----------------------------------------------}    
    end.

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,min,max:integer;

begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-50+random(100);
write(a[i,j]:4);
end;
writeln;
end;

for i:=1 to n do
begin
min:=1;
max:=2;
for j:=1 to m do if a[i,j]>a[i,max] then max:=j else if a[i,j]<a[i,min] then min:=j;
writeln('Строка ',i,':MAX = A[',i,',',max,']=',a[i,max],'   MIN = A[',i,',',min,']=',a[i,min]);
end;

for j:=1 to m do
begin
min:=1;
max:=2;
for i:=1 to m do if a[i,j]>a[max,j] then max:=i else if a[i,j]<a[min,j] then min:=i;
writeln('Столбец ',i,':MAX = A[',max,',',j,']=',a[max, j],'   MIN = A[',min,',',j,']=',a[min, j]);
end;
readln;
end.