5. Для упражнения 4 добавьте возможность вводить и выводить названия стран.

К предыдущей программе добавим объявление массива для названий стран.

var n, x: integer;
    p: array[1..10] of integer;
    l: array[1..10] of integer;
    st: array[1..10] of string;
begin
 write('Количество стран n = ');
 readln(n);
  
 writeln('Перечислите площади (в млн кв. км)');
 for var i := 1 to n do
  read(p[i]);
 
 writeln('Перечислите названия стран');
 for var i := 1 to n do
  read(st[i]);
  
 writeln('Перечислите численности насления (в млн жителей)');
 for var i := 1 to n do
  read(l[i]);
  
 write('Число x = ');
 readln(x);
 
 for var i := 1 to n do
  if l[i] / p[i] > x then
    writeln('№', i, ' ', st[i], ': плотность = ', l[i] / p[i]);
end.
Другие задания