01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / EX1

program ex1;
{‡ ¤ ­  ¬ ваЁж  D[3,3]
 ЋЇаҐ¤Ґ«Ёвм ¬ ЄбЁ¬ «м­л© н«Ґ¬Ґ­в в®Ј® бв®«Ўж , ў Є®в®а®¬ ­ е®¤Ёвбп
 ¬Ё­Ё¬ «м­л© н«Ґ¬Ґ­в ўбҐ© ¬ ваЁжл
 Ќ ЇҐз в вм Ёб室­го ¬ ваЁжг Ё ¬ ЄбЁ¬ «м­л© н«Ґ¬Ґ­в}
var i,j,mi,ma,nc: integer;
var m: array[1..3,1..3] of integer;
begin
 writeln('‚ўҐ¤ЁвҐ Ёб室­го ¬ ваЁжг');
 for i:=1 to 3 do
  for j:=1 to 3 do read(m[i,j]);
 {ђ бЇҐз вЄ  ¬ ваЁжл}
 writeln('€б室­ п ¬ ваЁж ');
 for i:=1 to 3 do
 begin
  for j:=1 to 3 do write(m[i,j]:4);
  writeln
 end;
 {Ќ ©вЁ ­®¬Ґа бв®«Ўж  (nc), ў Є®в®а®¬ ­ е®¤Ёвбп ¬Ё­Ё¬ «м­л© н«Ґ¬Ґ­в ¬ ваЁжл}
 mi:=m[1,1]; nc:=1;
 for i:=1 to 3 do
  for j:=1 to 3 do
   if m[i,j] < mi then
    begin
     mi:=m[i,j];
     nc:=j
    end;
 {Ќ ©вЁ ¬ ебЁ¬ «м­л© н«Ґ¬Ґ­в ў бв®«ЎжҐ nc}
 ma:=m[1,nc];
 for i:=1 to 3 do
  if m[i,nc] > ma then ma:=m[i,nc];
 writeln('Њ ЄбЁ¬ «м­л© н«Ґ¬Ґ­в ',ma)
end.