Дан целочисленный массив размера N. Удалить из массива первый элемент, равный заданному числу 6, и вывести размер полученного массива и его содержимое.
Пример . Процедура удаления элемента:
Procedure Del (var z:omas; k:byte); //процедура Del с описанием формальных параметров-
переменных z типа omas и формальных параметров-значений k типа byte
var i:byte; //описание локальных переменных i типа byte
begin //начало процедуры
for i:=k to n-1 do //цикл с параметром: для i от k до n-1 делаем (начиная с элемента с
номером k и до предпоследнего элемента)
z[i]:=z[i+1]; //элементу массива присваиваем предыдущий элемент
z[n]:=0; //последний заменяем на 0
end; //конец процедуры