задачи на массив и матрицу, тока начал изучать паскаль,очень хочется узнать как делаются эти задач Опции

[medievil90]

1.дан массив R(N) N<=50. Переставить максимальный и минимальный элементы массива.
2.Дана целочисленная прямоугольная матрица.Определить минимальное из чисел,встречающихся в заданной матрице более одного раза.(оформить в виде функции).

[volvo]

Yevgeny, а теперь расскажи, зачем тебе непонятные условия и море циклов вместо того, чтобы просто:

imax := 1; imin := 1;
for i := 2 to k do begin
  if x[imax] < x[i] then imax := i;
  if x[imin] > x[i] then imin := i;
end;
{ и менять x[imin] <-> x[imax] }
?

Или программа теперь тем лучше, чем больше непонятных действий делает?