1)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=20;
x:=70;
r:=25;
for i := 1 to 7 do
Circle(x,y+i*60,r);
end.
2)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=20;
x:=20;
r:=30;
for i := 1 to 5 do
Circle(x+i*70,y+i*70,r);
end.
3)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=70;
x:=30;
r:=60;
for i := 1 to 5 do
Circle(x+i*60,y,r);
end.
//PASCAL
var
a:array[1..10] of integer;
i,min:integer; av:real;
begin
min:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
av:=av+a[i];
if a[i] <= a[min] then min:=i;
end;
av := av / 10;
writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
readln;
end.
Вот расчеты. Числа правда получаются не целые. А ты уверен, что сфотал все данные?