Turbo pascal. Napisz program, który losowo (od 0 do100) wypełni elementami 5x5 tablicę i wypisze ją na ekranie w każdym wierszu znajdzie i wypisze największy element, a w kolumnie najmniejszy.

program tablica; uses crt; var tab:array[1..5,1..5] of integer; i,j,buff,k,l:integer; begin clrscr; for i := 1 to 5 do for j := 1 to 5 do tab[i,j] := random(100); for i := 1 to 5 do for j := 1 to 5 do begin Write(tab[i,j],); if j = 5 then begin buff := tab[i,1]; for k := 1 to 5 do if tab[i,k] < buff then buff := tab[i,k]; textcolor(yellow); Write(buff); textcolor(white); Writeln; end; end; Writeln; textcolor(yellow); buff := tab[j,1]; for i := 1 to 5 do for j := 1 to 5 do begin if tab[j,i] > buff then tab[j,i] := buff; if j = 5 then Write(buff,); end; readln; end. W razie reklamacji pisz PM.