2 задачи на Массив и матрицу посмотрите пжл)

[Jereme]

1 Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся менее двух раз.
2 Дана матрица размера M x N. Поменять местами ее строки так, чтобы их минимальные элементы образовывали возрастающую последовательность.

[Лучик_света]

1 задача примерно такая:


var
A, Result: array [1..100} of Integer;
n, i, j, k, m: Integer;
begin
randomize;
read(n);
for i := 1 to n do
a[i] := random(10);
k := 0;
for i := 1 to n do
begin
for j := (i + 1) to n do
if a[i] = a[j] then
begin
k := k + 1;
result[k] := a[i];
end
else
begin
for m := 1 to (i - 1) do
if a[i] = a[m] then
begin
k := k + 1;
result[k] := a[i];
end;
end;
end;
end.

[Jereme]

большое спасибо!!!!!!!!!!