1. Сколько жителей в самом крупном по численности населения городе Египта? ответ на этот вопрос (в тыс. чел.) запишите в ячейку F2 таблицы.
2. Сколько городов Египта имеют жителей больше, чем средняя численность населения
городов, представленных в таблице? ответ на этот вопрос запишите в ячейку F3.
3. Постройте круговую диаграмму, отображающую соотношение количества городов
Швейцарии, Канады и Германии, представленных в таблице. Левый верхний угол
диаграммы разместите вблизи ячейки G6. В поле диаграммы должна присутствовать
легенда (обозначение, какой сектор диаграммы соответствует каким данным) и числовые
значения данных, по которым построена диаграмма.
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s);
min:=a[1];
max:=a[1];
for i:=2 to n do begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln ('Максимум=',max);
writeln('Минимум=',min);
end.
uses crt,graphabc;
var x:integer;
begin
x:=1;
for x:=190 to 465 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
for x:=465 downto 190 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
end.