Вот такую программу я писал, когда мы в институте проходили Паскаль. Задача была следующая: необходимо было ввести размеры матрицы, потом нужно было ввести саму матрицу. Программа выбирает наименьший и наименьший элемент в введенной матрице. Пользуйтесь на здоровье :-)


Program matrix5;
uses wincrt;
var F:array[1..8,1..7] of integer;
n,m,i,j,max,min,max1,max2,min1,min2:integer;
begin
writeln(’Vvedite razmer matix N i M’);
read(n,m);
writeln(’Vvedite matrix’);
for i:=1 to n do
for j:=1 to m do read(F[i,j]);
writeln(’Vvedennaya matrix’);
for i:=1 to n do
begin
for j:=1 to m do
write(F[i,j]:4);
writeln;
end;
writeln(’Rabota’);
max:=F[1,1];
min:=F[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if F[i,j]>=max then begin
max:=F[i,j]; max1:=i; max2:=j; end;
if F[i,j]<=min then begin
min:=F[i,j]; min1:=i; min2:=j; end;
end;

end.