напишите плиз, желательно через процедуры

Напишите плиз, желанно через процедуры

Задать свой вопрос
1 ответ
Удаляет из массива все элементы с данным значением:

APPTYPE CONSOLE

Const
   N = 10;
Type
   Mass = array[1..N] of integer;

Procedure BBOD(Var A:Mass; N:integer);
Var i:integer;
Begin
For i:= 1 to N do
    Read(A[i]);
End;

Procedure BBODRND(Var A:Mass; N:integer);
Var i:integer;
Begin
Randomize;
For i:= 1 to N do
    A[i]:=random(21)-10;
End;

Procedure BbIBOD(Var A:Mass; N:integer);
Var i:integer;
Begin
Write('Mass(',N,'):');
For i:= 1 to N do
    Write(' ',A[i]);
WriteLn;
End;

Procedure DLT(Var A:Mass; Var k:integer; N:integer);
Var i,m,D:integer;
Begin
Write('D = ');ReadLn(D);
k:=0;
For i:= 1 to N do
    if A[i] = D then k:=k+1;
For m:= 1 to k do
    Begin
    i:=1;
    While (A[i] lt;gt; D) do i:=i+1;
    For i:= i to N-m do
        A[i]:=A[i+1]
    End;
End;

Var
   A:Mass;
   k:integer;
Begin
BBODRND(A,N);
BbIBOD(A,N);
DLT(A,k,N);
BbIBOD(A,N-k);
ReadLn
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт