Question

Написать программу на языке Pascal. Занесите информацию о десяти европейских странах в массивы n (название страны), k (численность населения), s (площадь страны). Выведите названия стран в порядке возрастания плотности их населения. Попытался сделать программу, но выводит в порядке убывания.

Answer 1

Const
  n: array[1..10] of string = ('Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет');
  k: array[1..10] of integer = (146270033, 318614000, 10992589, 1371379000, 77695904, 80780000, 46507760, 47992000, 203260762, 87265169);
  s: array[1..10] of integer = (17125187, 9519431, 131940, 9598962, 780580, 357021, 504782, 1138910, 8514877, 1001450);

var
  p: array[1..10] of integer;
  i, j, bi, pmin: integer;
  nmin: string;

begin
  for i := 1 to 10 do p[i] := k[i] div s[i];
  pmin := 32767;
  for j := 1 to 10 do
  begin
    for i := 1 to 10 do
      if p[i] < pmin then
        begin nmin := n[i]; pmin := p[i]; bi := i end;
    write(nmin, ' ');
    pmin := 32767;
    p[bi]:= 32767;
  end;
end.