Цитата(Ozzя @ 17.06.2010 15:51)

заранее, пожалуйста.
А, таки хотелось бы увидеть Ваши попытки написать программу(ы) хоть чуть-чуть поднапрячь Ваш блондинистый мозг?
во-первых, я не блондинка

во-вторых, я не себе решаю, а другому человеку пытаюсь помочь

и в-третьих, вот первая задача, но она с ошибками, кажется
const
Max = 10; {Максимальный размер матрицы}
type
TMatrix = array[1..Max,1..Max] of integer; {Описание типа матрицы}
procedure FindMin(M:TMatrix; Size:byte; var MinRow, MinCol: byte; MinItem: integer);
{Поиск минимума.
Входные данные:
M - матрица.
Size - фактический размер матрицы.
Выходные данные:
MinRow, MinCol - координаты минимума.
MinItem - значение минимума.}
var
i,j:byte;
begin
{Начальные координаты}
MinRow:=1;
MinCol:=1;
{Просмотр матрицы}
for i:=1 to Size do
for j:=1 to Size do
if (M[i,j]<M[MinRow, MinCol]) then {Если меньше минимального}
begin {Сохраняем координаты}
MinRow:=i;
MinCol:=j;
end;
MinItem:=M[MinRow, MinCol]; {Значение минимального элемента.}
{Результаты будут возвращены через параметры-переменные (выходные параметры)}
end;