Odpowiedzi

2010-04-14T20:08:05+02:00
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.
1 5 1