Нужно сделать 3 задачи кому не сложно [Паскаль]

[Vetal39]

#18. Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти наибольший и наименьший по абсолютной величине элементы матрицы и поменять их местами.

18. Дано предложение А, состоящие из слов - наборов русских букв, разделенных любым количеством пробелов. Если в A есть слова с повторяющимися буквами, то упорядочить слова по невозрастанию длин слов. В противном случае, в предложении А найти все слова, содержащие сразу две буквы (о,е). Сколько их?


#18. Дана последовательность натуральных чисел {Aj}j=1...n (n<=10000). Удалить из последовательности числа, начинающиеся цифрой 2, а среди оставшихся продублировать числа, сумма цифр которых равна 25.

[rubius2008]

Не сложно, если тебе не сложно оплатить результат. Если интересно ася 600-927-970

[Pein95]

1.

program Project2;

{$APPTYPE CONSOLE}
   const
n=5;
j=5;
var
a:array [1..n,1..j] of integer;
i,l,max,min,index1,index2,index3,index4,k:integer;


begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=1 to n do
for l:=1 to j do
readln(a[i,l]);
max:=abs(a[1,1]);
min:=abs(a[1,1]);

for i:=1 to n do
for l:=1 to j do
if max<abs(a[i,l]) then
begin
max:=abs(a[i,l]);
index1:=i;
index2:=l;
end; 
if min>abs(a[i,l]) then
begin
min:=abs(a[i,l]);
index3:=i;
index4:=l;
end;
k:=a[index1,index2];

a[index1,index2]:=a[index3,index4];

a[index3,index4]:=k;
for i:=1 to n do
for l:=1 to j do
writeln(a[i,l]);
readln;
end.

[Vetal39]

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