ПАСКАЛЬ =\ — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

27.12.2007, 18:02

VERte][

Moderator - Level 7

Регистрация: 17.05.2007

Сообщений: 220

Провел на форуме:
3013539

Репутация: 441

Всё проверил и исправил) вот окончательный вариант:

Код:

program matrix(input, output,inp);
const lim=20;

var i,j,k,ind,min,max,n,m:integer;
x:array[1..lim,1..lim] of integer;
ok:boolean;
inp:Text;

begin
  
  Assign(inp,'matrix.txt');
  Reset(inp);
  Read(inp,n,m);

if (n>lim) or (m>lim) then
  Write('*Ґ¦Ґ«*о бзЁв*вм! ')

else begin
  for i:=1 to n do
   for j:=1 to m do
    Read(inp,x[i,j]);
	
for i:=1 to n do
 begin
   min:=x[i,1]; ok:=true; ind:=1;

     for j:=2 to m do
       if x[i,j]<min then begin min:=x[i,j]; ind:=j; end;

     for k:=i downto 1 do
       if x[k,ind]>min then begin ok:=false; k:=1; end;

     if ok then
      for k:=i to n do
        if x[k,ind]>min then begin ok:=false; k:=n; end;

    if ok then writeln(i,ind);
end;

for i:=1 to n do
 begin
   max:=x[i,1]; ok:=true; ind:=1;

     for j:=2 to m do
       if x[i,j]>max then begin max:=x[i,j]; ind:=j; end;

     for k:=i downto 1 do
       if x[k,ind]<max then begin ok:=false; k:=1; end;

     if ok then
      for k:=i to n do
        if x[k,ind]<max then begin ok:=false; k:=n; end;

    if ok then writeln(i,ind);
end;
end
end.

Последний раз редактировалось VERte][; 27.12.2007 в 18:12..