а) см, вложение
б)
1) опусти хвост
повтори 3 [ направо 90 вперед 10 направо 270 вперед 5]
2) опусти хвост
повтори 3 [вперед 10 направо 90 вперед 10 направо 270]
направо 180
повтори 3 [вперед 10 направо 90 вперед 10 направо 270]
3)опусти хвост
повтори 4 [вперед 10 направо 90 вперед 10 направо 90 вперед 10 направо 270]
4) опусти хвост
повтори 4 [вперед 10 направо 90]
повтори 2 [вперед 5 направо 90]
повтори 4 [вперед 10 направо 90]
направо 180
повтори 4 [вперед 10 направо 90] (ничело короче не придумал )))
примени эту программу себе, тут и мах и мин
program zadanie4;
uses crt;
var
i:integer;
max,min,maxi,mini:integer;
a:array[1..10] of integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
a:=random(51);
writeln('ischodni file');
writeln('');
for i:=1 to 10 do
write(a:5);
writeln; writeln;
maxi:=1; max:=a[1];
for i:=2 to 10 do
begin
if a>max then
begin
max:=a;
maxi:=i;
end;
end;
mini:=1; min:=a[1];
for i:=2 to 10 do
if a<min>;
end;
write('maximalnoe = '); writeln(max);
write('minimalnoe = '); writeln(min);
write('maximalnoe i = '); writeln(maxi);
write('minimalnoe i = '); writeln(mini);
writeln('konec zadachi');
readln;
end.
