Question

Написать программу на языке Pascal. Занесите информацию о десяти европейских странах в массивы. Найдите максимальную плотность Вот страны:Россия, США, Греция, КНР, Турция, Германия, Испания, Колумбия, Бразилия, Египет

Answer 1

Плотность, я так понимаю, населения на квадратный километр? Взял инфу из Wiki. Вот что получилось:

program HomeWork;

const countries:array[1..10] of string = ('Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет');

const density:array[1..10] of real = (8.56,32,81,650,100,230,92,39,23.6,80);

var i:integer;

var d:real;

var s:string;

begin

   d := 0;

   for i := 1 to length(density) do

       begin

           if d < density[i] then

               begin

                   d := density[i];

                   s := countries[i];

               end;

       end;

   writeln('Самая большая плотность в ', s, ', и она равна ', d:3:0, ' человек на квадратный километр')

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который создает массивы для хранения информации о десяти европейских странах и находит максимальную плотность населения:

pascalCopy code
program MaxPopulationDensity;

const
  NumCountries = 10;

type
  Country = record
    Name: string;
    Population: integer;
    Area: real;
  end;

var
  Countries: array[1..NumCountries] of Country;
  MaxDensity: real;
  MaxDensityCountry: string;
  i: integer;

begin
  // Заполнение массива информацией о странах
  Countries[1].Name := 'Россия';
  Countries[1].Population := 146599183;
  Countries[1].Area := 17125191;

  Countries[2].Name := 'США';
  Countries[2].Population := 331002651;
  Countries[2].Area := 9831510;

  Countries[3].Name := 'Греция';
  Countries[3].Population := 10716322;
  Countries[3].Area := 131957;

  Countries[4].Name := 'КНР';
  Countries[4].Population := 1439323776;
  Countries[4].Area := 9596961;

  Countries[5].Name := 'Турция';
  Countries[5].Population := 84339067;
  Countries[5].Area := 783562;

  Countries[6].Name := 'Германия';
  Countries[6].Population := 83783942;
  Countries[6].Area := 357022;

  Countries[7].Name := 'Испания';
  Countries[7].Population := 46754778;
  Countries[7].Area := 505992;

  Countries[8].Name := 'Колумбия';
  Countries[8].Population := 50882891;
  Countries[8].Area := 1141748;

  Countries[9].Name := 'Бразилия';
  Countries[9].Population := 212559417;
  Countries[9].Area := 8515767;

  Countries[10].Name := 'Египет';
  Countries[10].Population := 102334404;
  Countries[10].Area := 1002450;

  // Нахождение максимальной плотности населения
  MaxDensity := 0;

  for i := 1 to NumCountries do
  begin
    if (Countries[i].Population / Countries[i].Area) > MaxDensity then
    begin
      MaxDensity := Countries[i].Population / Countries[i].Area;
      MaxDensityCountry := Countries[i].Name;
    end;
  end;

  // Вывод результата
  writeln('Страна с максимальной плотностью населения: ', MaxDensityCountry);
  writeln('Максимальная плотность населения: ', MaxDensity:0:2, ' человек/кв. км');
end.

Эта программа создает массив структур Country для хранения информации о странах, вычисляет плотность населения для каждой страны и находит страну с максимальной плотностью населения.