Для решения данной задачи на Паскале можно использовать следующий алгоритм:
1. Создать массивы или списки для хранения названий регионов и информации об уровне безработицы.
2. Заполнить массивы или списки данными о регионах и уровне безработицы.
3. Найти три региона с наименьшим уровнем безработицы:
– Отсортировать массив или список с уровнем безработицы по возрастанию.
– Выбрать первые три элемента после сортировки.
– Вывести названия этих трех регионов.
4. Найти три региона с наибольшим уровнем безработицы:
– Отсортировать массив или список с уровнем безработицы по убыванию.
– Выбрать первые три элемента после сортировки.
– Вывести названия этих трех регионов.
5. Завершить программу.
Примерный код на Паскале:
“`
program UnemploymentRate;
const
NUM_REGIONS = 40;
var
regions: array[1..NUM_REGIONS] of string;
unemploymentRates: array[1..NUM_REGIONS] of real;
i: integer;
// Процедура сортировки массивов по уровню безработицы
procedure SortData;
var
i, j: integer;
tempRate: real;
tempRegion: string;
begin
for i := 1 to NUM_REGIONS – 1 do
begin
for j := i + 1 to NUM_REGIONS do
begin
if unemploymentRates[j] < unemploymentRates[i] then
begin
tempRate := unemploymentRates[i];
unemploymentRates[i] := unemploymentRates[j];
unemploymentRates[j] := tempRate;
tempRegion := regions[i];
regions[i] := regions[j];
regions[j] := tempRegion;
end;
end;
end;
end;
// Процедура вывода результатов
procedure OutputResults(startIndex, endIndex: integer);
var
i: integer;
begin
for i := startIndex to endIndex do
writeln('Регион: ', regions[i], ', Уровень безработицы: ', unemploymentRates[i]);
end;
begin
// Ввод данных о регионах и уровне безработицы
for i := 1 to NUM_REGIONS do
begin
write('Введите название региона ', i, ': ');
readln(regions[i]);
write('Введите уровень безработицы в регионе ', i, ': ');
readln(unemploymentRates[i]);
end;
// Сортировка и вывод результатов
SortData;
writeln('Три наименее благополучных региона:');
OutputResults(1, 3);
writeln('Три наиболее благополучных региона:');
OutputResults(NUM_REGIONS - 2, NUM_REGIONS);
readln;
end.
```
На выходе программа выведет названия трех наименее и трех наиболее благополучных регионов в соответствии с данными об уровне безработицы.