Program mm;
var a:array[1..12] of integer;
begin
for i:=1 to 12 do begin
а[1]:=5;
а[2]:=4;
а[3]:=-3;
а[4]:=1;
а[5]:=0;
а[6]:=-4;
а[7]:=(у тебя не написано);
а[8]=25;
а[9]=-8;
a[10]=-5;
а[11]=-17;
а[12]=-1;
end;
writeln('Вот исходный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]);
for i:=1 to 12 do begin
if (A[i]<0) then a[i]:=1;
if (a[i]>0) then a[i]:=-5;
end;
writeln('Вот полученный массив');
for i:=1 to 12 do writeln('A[',i,']=',a[i]);
writeln(' Введите 12 чисел');
for i:=1 to 12 do readln(A[i]); (это доп оценка)
end.
Фух, наконец-то х) Давненько не рисовал примитивами, но вот:) Аргументом процедуры New выступает номер "треугольника", а константа Center носит координаты начала, её можете каверкать как угодно, в пределах... Ну, 30..150 где-то, максимум только размерами окна диктуется))
A B НЕ A НЕ A ИЛИ B
0 0 1 1
0 1 1 1
1 0 0 0
1 1 0 1
(1;3)+(1;-2)*3=(6;9)
(6;9)+(3;9)=(9;12)
чтобы чертежник вернулся в исходную точку необходимо переместить его на (-9;-12)
(-9;-12)/3=(-3;-4)
Ответ:4