Подскажите решение задач на паскале

[АмИдЪ]

напишите еси не затруднит решение следущих задачек на паскале
можно тока сами прожки блок схемы не обязательно

1) Ввести несколько слов и отсортировать их в по кол-ву символов (по убыванию)

2)Дан одномерный массив. Составить словесный алгоритм, блок-схему и программу обработки массива
Вычислить:
1 Кол-во нулей;
2 Кол-во элементов между максимумом и минимумом
заменить все элементы массива их квадратами и упорядочить их по возрастанию.

3)Дан двумерный массив. Подсчитать кол-во локальных миинмумов.
Примечание. Элемент матрицы называется локальным минимумом, если он строго меньше своих соседей.

заранее благодарен

[maladoy]

1)вроде так

program strok;
uses crt;
const n=5;
var i,j,mas,k:integer;
   a:array[1..n] of string[20];
   b,с:array[1..n] of integer;
begin 
for i:=1 to n do begin
writeln ('vvedite ',i,'-toe slovo');
readln(a[i]);
b[i]:=Length(a[i]);
c[i]:=i;    
end;
for i := 2 to n do
   for j := n downto 1 do
   if b[j - 1] > b[j]
   then begin
      mas := b[j - 1];
      b[j - 1] := b[j];
      b[j] := mas;
      k:=c[j-1];
      c[j-1]:=c[j];
      c[j]:=k;
    end;
writeln('------------');
writeln('otsort strok');
for i:=1 to n do begin
mas:=c[i];
writeln(a[mas]);end;
end.

[maladoy]

2

program mas1;
uses crt;
const n=5;
var
 a:array[1..n] of integer;
 b:array [1..n] of integer;
 i,k,j,imin,imax,ir:integer;
 max,min,tmp:integer;
 begin 
 clrscr;
 max:=-999;
 min:=999;
 for i:= 1 no n do begin
 a[i]:= random(25);
 if a[i]=0 then inc(k);
 if a[i]>max then begin
 max:=a[i];
 imax:=i;
 end;
 if a[i]< min then begin
 min:=a[i];
 imin:=i;
 end;
 b[i]:=sqr(a[i]);
 end;
 i:=0;
    while i<=N-1 do
    begin
        j:=0;
        while j<=n-2-i do
        begin
            if b[j]>b[j+1] then
            begin
                Tmp := b[j];
                b[j] := b[j+1];
                b[j+1] := Tmp;
            end;
            Inc(j);
        end;
        Inc(i);
    end;
	writeln('kol-vo el=0:',k);
	writeln('--------------');
	writeln('rast ot min do max: ', abs(imin-imax));
	writeln('--------------');
	writeln('uporyad massiv kvadratov:')
	for i :=1 to n do
	writeln('a[',i,']=',b[i]);
	readln;
	end.

[maladoy]

3)

program mas2;
uses crt ;
const 
       n=5;
var a: array[0..n+1,0..n+1] of integer;
  i,j,k:=integer;
 begin
  k:=0;
  randomize; 
  for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(100);
  for i:=1 to n do
  begin
 for j:=1 to n do
  write(a[i,j]:0,5);
  writeln;
  end;
  for j:=0 to n+1 do 
  a[0,j]:=999;
  a[j,0]:=999;
  a[n+1,j]:=999;
  a[j,n+1]:=999;
 for i:=2 to n do
  for j:=2 to n do
   if (a[i,j]<a[i-1,j]) and (a[i,j]<a[i+1,j]) and (a[i,j]<a[i,j-1]) and (a[i,j]<a[i,j+1])and
   (a[i,j]<a[i-1,j-1])and (a[i,j]<a[i+1,j-1]) and (a[i,j]<a[i-1,j+1]) and (a[i,j]<a[i+1,j-1])  then inc(k);
 if k<>0 then  
  writeln('kol-vo lok minimumov ',k)
  else writeln ('lok min net!');
  readln;
  end.

[АмИдЪ]

Огромное спасибо!
Даже не представляешь се как ты мну выручил
Словами етого не передать
тока я не понял почему тама он все писал "неизвестный индетенфекатор" про переманную (s[i]) в первой задачке

[АмИдЪ]

Извеняюсь , ето прост я затупил...
ещё раз огромное спасибо маладой
тему можно закрывать