Задача. Сдвинуть одномерный массив на один элемент влево. Например, исходный массив Обработанный массив: Фрагмент программы: … t:=a[1]; For i:=1 To n-1 Do a[i]:=a[i+1]; a[n]:=t; …

Задача. Сдвинуть одномерный массив на k элементов влево (k вводится с клавиатуры). Например, исходный массив Обработанный массив (при k=3): Фрагмент программы:… For j:=1 To k Do Begin t:=a[1]; For i:=1 To n-1 Do a[i]:=a[i+1]; a[n]:=t; End; …

Задача. Сдвинуть одномерный массив на один элемент вправо. Например, исходный массив Обработанный массив: Фрагмент программы: … t:=a[n]; For i:=n Downto 2 Do a[i]:=a[i -1]; a[1]:=t; …

ЗАДАЧА. Дан массив целых чисел. Вставить элемент k после первого максимального элемента. Метод : пусть q – номер максимального элемента. Сдвиг на одну позицию вправо и вставка на q+1 (после заданного элемента) элемента, равного k. … FOR i:= n DownTo q+1 Do A[i+1]:=a[i]; A[q+1]:=k;…

ЗАДАЧА. Дан массив целых чисел. Удалить из массива все нулевые элементы. Метод 1: наиболее простая модель удаления элементов из последовательности – очередь: на место удалённого элемента надо записать то значение, которое находится справа. На место элемента справа передвигается следующий и т.д. Если элемент равен нулю, то он удаляется, а если не равен – то переходим к следующему элементу (i+1) … i:=1; WHILE (i < n) do IF a[i] 0 THEN INC(i) ELSE {Удаляем элемент a[i] } begin n:=n-1; For j:= i To n Do a[j]:=a[j+1] end; …