begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
n = 15;
var
a: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(61) - 30;
Write(a[i]:4);
if a[i]>0 then a[i]:=2*a[i]
else
if a[i]<0 then a[i]:=7
end;
Writeln;
Writeln('После преобразования');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-20 15 16 20 0 16 -15 -1 -2 21 -8 -10 4 -24 1
После преобразования
7 30 32 40 0 32 7 7 7 42 7 7 8 7 2
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
Объяснение:
Смотри картинку
Вся программа:
использовать Чертежник
алг
нач
сместиться в точку (2,3)
цифра_ 6
цифра_ 0
цифра_ 0
цифра_ 6
цифра_ 0
цифра_ 6
кон
алг цифра_ 0
нач
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
сместиться на вектор (2,0)
кон
алг цифра_ 6
нач
опустить перо
сместиться на вектор (-1,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (3,1)
кон.
Извините ,если не правильно