Нужно поменять местами макс. и мин. значения. что не так? program matrica; uses crt; const n=3; m=4; a=-20; b=20; var i, j, min, max, t: integer; y: array [1..n, 1..m] of integer; begin clrscr; randomize; writeln('matrica y'); min: =0; max: =0; t: =0; for i: =1 to n do begin for j: =1 to m do begin y[i,j]: =trunc((b-a)*random+a); write(y[i,j]: 6); if y[i,j]max then max: =y[i,j]; end; writeln; end; writeln('минимальное значение = ', min); writeln('максимальное значение = ', max); t: =min; min: =max; max: =t; for i: =1 to n do begin for j: =1 to m do begin write(y[i,j]: 6); end; writeln; end; readkey; end.

Program matrix; var  a: array[1..10, 1..10] of integer; i, j, mini, minj, maxi, maxj, temp: integer; begin  randomize;   for i : = 1 to 10 do  begin     for j : = 1 to 10 do    begin       a[i, j] : = random(100);       write(a[i, j], ' ');     end;     writeln;     end;     mini : = 1;     minj: =1;     maxi : = 1;     maxj: =1;     for i : = 1 to 10 do      for j : = 1 to 10 do     begin        if a[i, j] < a[mini,minj]  then   begin        mini : = i;         minj : = j;       end;       if a[i, j] > a[maxi,maxj] then      begin         maxi : = i;         maxj : = j;       end;         end;         writeln('min = ',a[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );         writeln('max = ',a[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );         temp : = a[maxi, maxj];         a[maxi, maxj] : = a[mini, minj];         a[mini, minj] : = temp;         writeln;         for i : = 1 to 10 do  begin           for j : = 1 to 10 do           write(a[i, j], ' ');           writeln;         end;           readln;         end. temp - переменная для временного хранения минимальных и максимальных элементов.

Мклкмнонопрост! v=15*8=120 бит