Дана матрица порядка 3 на 4. в прследних к столбцах найти минимальный элемент и поменять местами с 2 элементом 1 строки. измененный массив вывести на экран монитора к число введенные с клавиатуры.

Попробуй так: const   nmax=100; var   a: array[1..nmax,1..nmax] of integer;   i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin   randomize;   write('введите размеры массива m, n: ');   readln(m,n);   writeln('исходная матрица: ');   for i: =1 to m do   begin     for j: =1 to n do     begin       a[i,j]: =random(99)+1;       write(a[i,j]: 4);     end;     writeln;   end;   writeln;     min: =a[1,1]; max: =a[1,1];   i_min: =1; j_min: =1; i_max: =1; j_max: =1;     for i: =1 to m do     for j: =1 to n do     begin       if a[i,j]> max then       begin         max: =a[i,j];         i_max: =i;         j_max: =j;       end;       if a[i,j]< min then       begin         min: =a[i,j];         i_min: =i;         j_min: =j;       end;     end;     writeln('максимальный элемент: ',max,'[',i_max,',',j_max,']');   writeln('минимальный элемент: ',min,'[',i_min,',',j_min,']');   tmp: =a[i_min,j_min];   a[i_min,j_min]: =a[i_max,j_max];   a[i_max,j_max]: =tmp;     writeln('полученная матрица: ');   for i: =1 to m do   begin     for j: =1 to n do       write(a[i,j]: 4);     writeln;   end;   readln; end.

  program abitura;

uses crt;

var n,i,r,n1,n2,n3: integer;

begin

      clrscr;

      write('введите количество абитуриентов: ');  

 

      readln(n);

      for i: =1 to n do

            begin

                  writeln('абитуриент номер ' ,i  );  

                  write('введите оценку за первый экзамен');  

 

                  readln(n1);

                  write('введите оценку за второй экзамен');  

                  readln(n2);

                  write('введите оценку за третий экзамен');  

                    readln(n3);

                  r: =n1+n2+n3;

                  if (r> =13) then writeln('вы зачислены на дневное отделение ');  

 

                  if (r> 10) and (r< 12)  then writeln('вы зачислены на вечернее отделение ');  

 

                  if (r> =8) and (r< =9)  then writeln('вы зачислены на заочное отделение ');

                  if   (r< 8)  then writeln('вам отказанно в зачислении ! ');              

            end;    

      readkey;  

 

  end.