Нужна помощь срочно!!! Осталось 40 мин. до здачи!!! Прошу помогите!!!
выполнить 1 задание из 9
надо написать программу в паскале

Ответ:program zda;

var i,n,p:integer;

a:array[1..100]of integer;

begin

read(n);

for i:=1 to n do

read(a);

for i:=1 to n do

p:=a[1];

write(a[1]+a/n);

end.

Ответ:

uses graphabc;

begin

SetPenWidth(2);

SetPenColor(clDarkBlue);

line(170,400,470,400);

line(120,300,520,300);

line(120,300,170,400);

line(520,300,470,400);

circle(190,350,25);

circle(255,350,25);

circle(320,350,25);

circle(385,350,25);

circle(450,350,25);

rectangle(150,280,490,300);

rectangle(175,210,245,280);

floodfill(180,215,clblue);

rectangle(285,140,355,280);

floodfill(290,145,clblue);

rectangle(395,210,465,280);

floodfill(400,215,clblue);

end.

Объяснение:

Смотри картинку