Const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.
Вот полный список примитивов: circle, ellipse, line, polygon, polyline, rect. Соответственно, нужно выбрать так:
- arc
- ✓ circle
- helix
- ✓ polyline
- ✓ ellipse
- ✓ rect
- hyperbola
Program имя;
Begin
Writeln(' * * * * *'');
Writeln(' * *');
Writeln(' ********');
end.