надо решить задачку через делфи и паскаль)))

Гы.. . На обоих:

program Project1;

{$APPTYPE CONSOLE} { вот это в паскалевском варианте можно не писать}

const n=4;
type
TArrElemType=integer;
TMyArrayLine=array[1..n] of TArrElemType;
TMyArray=array[1..n] of TMyArrayLine;

procedure SortLine(var l:TMyArrayLine);
var j:integer;
k:TArrElemType;
b:boolean;
begin
repeat
b:=false;
for j:=1 to n-1 do
if l[j]>l[j+1] then begin
b:=true;
k:=l[j];
l[j]:=l[j+1];
l[j+1]:=k;
end;
until not b;
end;

procedure TypeArray(a:TMyArray);
var j, k:integer;
begin
for j:=1 to n do begin
for k:=1 to n do
Write(a[j][k]:4);
writeln;
end;
end;

var
a:TMyArray;
mins: TMyArrayLine;
j,k:integer;

begin
Randomize;
for j:=1 to n do
for k:=1 to n do
a[j][k]:=Random(21)-10;

Writeln('Source array:');
TypeArray(a);

for j:=1 to n do
SortLine(a[j]);

Writeln('After sorting lines:');
TypeArray(a);

for j:=1 to n do
mins[j]:=a[j][1];

SortLine(mins);

writeln('Maximum of minimums: ',mins[n]);

ReadLn;
end.

Сразу говорю, что это не оптимальное решение - для нахождения минимумов и максимумов не надо ничего сортировать. Зато оно очень наглядное.

это Паскаль
program mas;
uses crt;
var min,mm,i,j:integer;
A:array[1..4,1..4] of integer;
B:array[1..4] of integer;
BEGIN
clrscr;
writeln('vvesti 16 chisel');
for i:=1 to 4 do
for j:=1 to 4 do
readln(A[i,j]);
writeln('ischodnaya matrica');
for i:=1 to 4 do begin
for j:=1 to 4 do
write(A[i,j]:6);
writeln;
end;
for i:=1 to 4 do begin
b:=a[i,1];
for j:=2 to 4 do
if a[i,j]<b<i> then b:= a[i,j];
end;
for j:=1 to 4 do
write(b[j]:5);
mm:=b[1];
for j:=2 to 4 do
if b[j]>mm then mm :=b[j];
writeln('min= ',mm:5);
readkey;
END.

пробелы уберите: http: // depositfiles. com / files /pl0r7zgx2