<u>Вспомогательный алгоритм:</u>
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
<span>кон
<u>Основной алгоритм:</u>
</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(4,-3)
кц
<span>кон</span>
1833 год , Чарлз Бэббидж,Англия
Раз в обоих заданиях известно количество элементов в массиве, то имеет смысл использовать цикл for.
Задание №1
const n=20;
var
a:array[1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] mod 10 = 4 then s:=s+1;
end;
writeln(s);
end.
<span>Задание №2
const n=20;
var
a:array[1..n] of integer;
i,max,nmax:integer;
begin
max:=0;
for i:=1 to n do begin
a[i]:=random(1001);
if a[i] >max then begin
nmax:=i;
max:=a[i];
end;
write(a[i]:5);
end;
writeln;
writeln(nmax,' ',a[nmax]);
end.
</span>
