Помогите срочно кто может по двумерному массиву, двуерные массивы Опции

[ainp]

1. даны целые чисала А1, А2, А3...Аn наименьший член последовательности А1, А2, А3...Аn заменить целой частью среднего арифметического всех членов, остальные члены оставить без изменения . Если в последовательности несколько членов со значением min (А1, А2, А3...Аn ), то заменить последний по порядку.

2. var k: integer;
c: array [1..n, 1..m] of char;
определить к-количество различных элементов масссива с (т. е. повторяющиеся элементы считать один раз)

3. Дана (прочно) вещественная матрица размером NxM. перераставляя ее строки и столбцы добиться того чтобы наибольший элемент (один из них) оказался в верхнем левом углу

[volvo]

Unknown, ты уверен, что здесь:

min:=a[1];
for i:=2 to n do
     if a[ i ]<=min then min:=a[ i ];
a[ i ]:=sr; { <--- Здесь !!! }

будет производиться то, что было в задании:

наименьший член последовательности А1, А2, А3...Аn заменить целой частью среднего арифметического всех членов

а не будет банально заменен ПОСЛЕДНИЙ элемент последовательности? i чему будет равно там, где я отметил, напомни-ка мне...

Может, все-таки, запоминать индекс минимального элемента?