написать алгаритм по программе(турбо паскаль)

[lilia2121]

uses crt; 
var P:array[1..20] of integer; 
etalon,p12,i1,i2,vse_ravni: integer; 
begin 
clrscr; randomize; 
vse_ravni:=1; 
P[1]:=random(100); 
write(P[1],' '); 
etalon:=P[1]; 
for i1:=2 to 20 do begin 
P[i1]:=random(100); 
if (P[i1]>etalon) or (P[i1]<etalon) then vse_ravni:=0; 
write(P[i1],' '); 
end; 
writeln; 
writeln; 
writeln; 
writeln; 
if (vse_ravni=0) then begin 
for i2:=1 to 20 do begin 
for i1:=1 to 19 do begin 
if (P[i1]>P[i1+1]) then begin 
p12:=P[i1+1]; 
P[i1+1]:=P[i1]; 
P[i1]:=P12; 
end; 
end; 
write(P[21-i2],' '); 
end; 
end 
else begin 
for i1:=1 to 20 do begin 
if (i1 mod 2)=1 then begin P[i1]:=1; end; 
write(P[i1],' '); 
end; 
end; 
readkey; 
end.

Всё понятно но мы же неможем написать поочерёдно for i2:=1 to 20 do begin
for i1:=1 to 19 do begin
Как быть?

[Sweta]

1. Пользуйтесь тегом CODE. Выделите текст программы и нажмите значок # на панели.
2. Почему нельзя? Цикл в цикле организовывается очень часто при работе с двухмерными массивами.

[Grag]

Эти вложенные циклы лучше записать так

for i1:=1 to 19 do
  for i2:=i1+1 to 20 do
    begin
      if (P[i1]>P[i2]) then 
        begin
          p12:=P[i2];
          P[i2]:=P[i1];
          P[i1]:=P12;
        end;
    end

Это обычная линейная сортировка...

А вот тут

if (P[i1]>etalon) or (P[i1]<etalon) then vse_ravni:=0;

лучше написать так

if P[i1]<>etalon then vse_ravni:=0;

А еще более грамотно определить переменную vse_ravni:boolean, т.е. как логическую, что более логично...

А вот в этой части

if (i1 mod 2)=1 then

проверку на нечетность индекса массива лучше сделать с применением функции odd()

if odd(i1) then

Код становится более читаем...