Записи, Вывод Опции

[Desktop II]

Дано три страны. Напечатать списко стран в порядке спаданя
плотность населения, указать количесвто школ, больниць, ВУЗов которые
припадають на 1000 человек.

Как сделать условие что бы страны выводило в порядке спадание плотности населения ? И количесвто школ, больниць, ВУЗов которые припадають на 1000 человек?

Что я сделал.
<--->

Сообщение отредактировано: Desktop II - 29.03.2006 10:47

[Desktop II]

Не совсем понял как в даном случае отсортировать массив....

Вот код но он работает:
<--->

Сообщение отредактировано: Desktop II - 29.03.2006 8:34

[мисс_граффити]

Не совсем понял как в даном случае отсортировать массив....
Вот код но он работает

мм?
так пугает работающий код?
если серьезно - глюк здесь.

for i:=1 to 3 do 
begin
max:=masv[i];
l:=i;
while j>=3 do 
begin
if max<masv[j] then 
begin
max:=masv[j];
l:=j;
end;
j:=j+1;
end;
masv[l]:=masv[i];
masv[i]:=max;
end;

тебе же надо сортировать по плотности?
вот и сравнивай плотности! то есть не masv[i], а masv[i].plot