Створити алгоритм мовою Pascal придатний для реализации в середовищ

A[i]:=random(20)-10;

while (i>0)

if i<>0

Объяснение

Ошибка A[i]:=random(21); Твой диапазон [0;20]

Исправление A[i]:=random(20)-10;

Дальше можно находить элемент в массиве по разному, можно все элементы проверить, счётчик дойдёт до нуля - программа выведет "Не найден!", если счётчик не равен нулю, значит хотя бы 1 значение х в массиве было найдено.

Ошибка while (i<=N)

Исправление while (i>0)

Ошибка if i<=N

Исправление if i<>0

Условие (i<=N) выполняется всегда, поэтому оно вообще не нужно

A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 1 to 10 do

   begin

       A[i] := A[i - 1];

       PrintLn(a);

   end;

   Println();

   Println(2);

   for i := 0 to 10 do

       A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 10 downto 0 do

   begin

       A[i] := A[10 - i];

       PrintLn(a);

   end;

end.

Тут вывод трасировок последних циклов

1

[1,2,3,4,5,6,7,8,9,10,11]

[1,1,3,4,5,6,7,8,9,10,11]

[1,1,1,4,5,6,7,8,9,10,11]

[1,1,1,1,5,6,7,8,9,10,11]

[1,1,1,1,1,6,7,8,9,10,11]

[1,1,1,1,1,1,7,8,9,10,11]

[1,1,1,1,1,1,1,8,9,10,11]

[1,1,1,1,1,1,1,1,9,10,11]

[1,1,1,1,1,1,1,1,1,10,11]

[1,1,1,1,1,1,1,1,1,1,11]

[1,1,1,1,1,1,1,1,1,1,1]

2

[1,2,3,4,5,6,7,8,9,10,11]

[1,2,3,4,5,6,7,8,9,10,1]

[1,2,3,4,5,6,7,8,9,2,1]

[1,2,3,4,5,6,7,8,3,2,1]

[1,2,3,4,5,6,7,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

Подробнее - на -

Объяснение: