Дан целочисленный массив размера N. Удалить из массива первый элемент, равный зада

Дан целочисленный массив размера 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; //конец процедуры
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы