Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином: 6. Имеется одномерный целочисленный массив из семи элементов. Каким будет результат преобразования массива но следующему алгоритму? В тексте задания, скорее всего, ошибка. Переменная к никак не определена. По смыслу, скорее всего, предполагался сдвиг элементов массива и должно быть for i := 2 to n do a[i - 1] := a[i]; const n=7; var a: array [1..n] of integer; k,i: integer; begin for i := 1 to n do read(a[i]); k:=a[1]; for i := 2 to n do a[i - 1] := a[i]; a[n]:=k; for i := 1 to n do write(a[i]) end. Программа: Z_8_6.pas (ссылка ниже)
