Поменять строки с минимальной и максимальной длиной

[NewMen]

Дан массив А состоящий из n элементов типа стринг. Поменять строки с минимальной и максимальной длиной...и вывести массив. (процедуры ввода вывода и обмена)

[Grag]

Элементарно! Проходишь по массиву, с помощью Length(S) находишь строки с минимальной и максимальной длиной S, запоминаешь индексы этих строк, а уж поменять местами элементы массива совершенно не сложно...

[NewMen]

ну напиши плиз! Если не трудно.

[Филантроп]

k:=1;m:=1;
for i:=1 to n do 
begin
if length(a[i])>length(a[k]) then k:=i;
if length(a[i])<length(a[m]) then m:=i;
end;
s:=a[k];
a[k]:=a[m];
a[m]:=s;

[Stilet]

Наработки есть?
Хоть как нить представляешь как это делать?

[NewMen]

Кому не трудно, напишите плиз полностью прогу....!

[NewMen]

Очень нада! Никак не могу додумать(

[mifomen]

PHP код:


program use;
uses crt;
var a:array [1..20] of string;
    kn,km,max,min,n,i,j:integer;
    t,st1,st2:string;
begin clrscr;
    write('Vvedite N '); readln(n);
    Writeln('Vvedite ',n,' elementov tipa string ');
    for i:=1 to n do
    readln(a[i]);
max:=length(a[1]); min:=length(a[1]);
for i:=2 to n do begin
if max<length(a[i]) then begin st1:=a[i]; km:=i; end;
if min>length(a[i]) then begin st2:=a[i]; kn:=i; end;
                 end;
     textcolor(red);
writeln(' MAX STRING= ',st1,' s ь ',km); textcolor(blue);
writeln(' MIN STRING= ',st2,' s ь ',kn);                 textcolor(7);
 t:='';
 t:=st1; st1:=st2; st2:=t;
 writeln;writeln('POLUCHILOS ');
 for i:=1 to n do
 write(a[i],' ');
readkey
end.