3 задачи на языке Pascal Опции

[Лапочка]

1) Найти минимальные элементы и номера строк и столбцов, в которых они расположены, для матриц А(5,8) и B(7,4).(решить с использованием процедуры)

2) Найти произведение последних N отрицательных элементов массива . Выполнить для двух массивов.(с использованием подпрограмм-функций)

3) Из списка символов S1,S2...Sn получить список Sm+1 ,Sm+2 ...Sn ,S1,...Sm (m<n) .(на тему организация списков там ссылочные переменные используются с ^ таким значком)

заранее, спасибо!

Сообщение отредактировано: Лапочка - 17.06.2010 22:52

[Ozzя]

заранее, спасибо!

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

[Лапочка]

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

во-первых, я не блондинка во-вторых, я не себе решаю, а другому человеку пытаюсь помочь и в-третьих, вот первая задача, но она с ошибками, кажется
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;