Дан целочисленный массив размера 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; / /конец процедуры

Question

Георгий Толкачев

Информатика

2 октября, 11:14

Дан целочисленный массив размера 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; / /конец процедуры

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Константин Лебедев · Answer 1

Решаем:

Const n=20;

type omas=array[1 ... n] of integer;

Procedure Del (var z:omas; k:byte);

var i:byte;

begin

for i:=k to n-1 do z[i]:=z[i+1];

z[n]:=0;

end;

var a:omas; i, b:integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (20);

write (a[i]:4);

end;

writeln;

b:=6;

i:=1;

while (i<=n) and (a[i]b) do i:=i+1;

if i<=n then

begin

Del (a, i);

writeln ('Размерность массива = ', n-1);

for i:=1 to n-1 do write (a[i]:4);

writeln;

end else writeln ('Массив не изменился');

end.

Пример:

12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

Размерность массива = 19

12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18