Дан целочисленный массив размера 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; //конец процедуры
Дан целочисленный массив размера 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; //конец процедуры
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Пример:
var
arr: array[1..5] of integer = (6, 3, 6, 8, 2);
i, n: integer;
begin
n := 5;
// Удаляем первый элемент равный 6
for i := 1 to n do
begin
if arr[i] = 6 then
begin
Del(arr, i);
n := n - 1;
Break;
end;
end;
// Выводим размер полученного массива и его содержимое
writeln('Размер массива:', n);
for i := 1 to n do
begin
write(arr[i], ' ');
end;
end.