использовать Чертежник
алг
нач
поднять перо
сместиться на вектор (-9,0) |начальная позиция
опустить перо |0
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (2,0)
сместиться на вектор (0,1) |1
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
сместиться на вектор (0,2) |2
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо |3
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,-2)
сместиться на вектор (0,2) |4
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |5
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
опустить перо |6
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (0,2)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
сместиться на вектор (0,2) |7
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |8
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо |9
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-1)
кон
n = 8;
var
a: array[1..n]of integer;
i, j, k, max: integer;
begin
max := -MaxInt;
for i := 1 to n do
begin
write('a[', i, ']= ');
readln(a[i]);
if a[i] > max then max := a[i];
end;
writeln(' максимальный элемент массива = ', max);
//сортировка методом пузырька
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] < a[j + 1] then begin
k := a[j];
a[j] := a[j + 1];
a[j + 1] := k
end;
//вывод массива
for i := 1 to n do write(a[i]:4);
end.
Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
максимальный элемент массива = 23
23 12 8 7 6 4 4 1