4. Известны данные о площади n стран (в млн кв. км) и численности населения (в млн жителей). Выведите номера тех стран, плотность населения которых больше x.

Объявим два массива: с площадью стран и их численностью населения. Запросим ввод значения для переменной x. Затем в цикле будет высчитывать плотность населения каждой страны и сравнивать полученное значение с x. Выведем номера стран и их плотность населения на экран. Плотность населения высчитывается по формуле: количество населения поделить на площадь территории.

var n, x: integer;
    p: array[1..10] of integer;
    l: array[1..10] of integer;
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(l[i]);
 write('Число x = ');
readln(x);
 for var i := 1 to n do
  if l[i] / p[i] > x then
    writeln('Страна под номером ', i, ' : плотность = ', l[i] / p[i]);
end.
Другие задания