1. Сколько жителей в самом крупном по численности населения городе Египта? ответ на этот вопрос (в тыс. чел.) запишите в ячейку F2 таблицы.
2. Сколько городов Египта имеют жителей больше, чем средняя численность населения
городов, представленных в таблице? ответ на этот вопрос запишите в ячейку F3.
3. Постройте круговую диаграмму, отображающую соотношение количества городов
Швейцарии, Канады и Германии, представленных в таблице. Левый верхний угол
диаграммы разместите вблизи ячейки G6. В поле диаграммы должна присутствовать
легенда (обозначение, какой сектор диаграммы соответствует каким данным) и числовые
значения данных, по которым построена диаграмма.
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26