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

 PROGRAM matriza;
     const nn=1;
           mm=9;
    var
       w:array[nn..mm,nn..mm] of real;
       n,m:nn..mm;
       amin,amax:real;
      i,j,imax,jmax,imin,jmin:integer;

 begin
  { repeat}
     writeln('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл');
     readln(n,m);
     writeln('ђ §¬Ґа­®бвм ¬ ваЁжл: Ї® бва®Є ¬  n= ',n:3);
     writeln('                     Ї® бв®«Ўж ¬ m= ',m:3) ;

    { until (n<=10) and (m<=10) and (n>=1) and (m>=1);}

     writeln('‚ўҐ¤ЁвҐ ¬ ваЁжг');

     for i:=1 to n do
     for j:=1 to m do
     begin
      read(w[i,j]);
      IMAX:=2; JMAX:=1;
      iMIN:=1; JMIN:=2;
      amax:=w[IMAX,JMAX];
      amin:=w[iMIN,JMIN];
     end;

     for i:=1 to n do
     for j:=1 to m do
   BEGIN
     if j<i then
      if w[i,j]>amax then
       begin
        amax:=w[i,j];
        imax:=i;
        jmax:=j;
       end;

     if j>i then
      if w[i,j]<amin then
       begin
        amin:=w[i,j];
        imin:=i;
        jmin:=j;
       end;
    END;
   readln;

     { Џ…—Ђ’њ €‘•Ћ„ЌЋ‰ € ЏЋ‹“—…ЌЌЋ‰ ЊЂ’ђ€–›}
    WRITELN;

      writeln;

      IF (w[IMAX,JMAX]=w[IMIN,JMIN])
       THEN
        begin
         WRITELN('’.Є. §­ зҐ­Ёп ¬ Єб. Ё ¬Ё­. в®зҐЄ а ў­л');
         WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
         writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
         writeln('в® Ёб室­ п ¬ ваЁж  Ё¬ҐҐв ўЁ¤:');
          for i:=1 to n do
           begin
            for j:=1 to m do
             write(w[i,j]:3:1,' ');
             writeln;
           end
        end
       ELSE
        begin
         WRITELN('’.Є. §­ зҐ­Ёп ¬ Єб. Ё ¬Ё­. в®зҐЄ ­Ґ а ў­л');
         WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
         writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
         writeln('ЋЎ­г«пҐ¬ нвЁ в®зЄЁ Wmax= ',W[IMAX,JMAX]:3:1,'  ','Wmin= ',W[IMIN,JMIN]:3:1);
         writeln('Ё Ї®«гз Ґ¬:');
         writeln;
         writeln('Ёб室­ п ¬ ваЁж ',' ':5,'Ї®«г祭­ п ¬ ваЁж ');
      for i:=1 to n do
       begin
         w[imax,jmax]:=amax;
         w[imin,jmin]:=amin;
         for j:=1 to m do
           write(w[i,j]:3:1,' ');

          for j:=1 to m do
           begin
            w[imax,jmax]:=0.0;
            w[imin,jmin]:=0.0;
            write(' ':10);
            for j:=1 to m do
             write(w[i,j]:3:1,' ');
             writeln;
            end
         end;
        end;
        READLN
 end.