Связь с администрацией сайта:       

demo

Среди толпы я одинок

Описать процедуру RemoveX (A, N, X), удалаяющую из целочисленного массива A размера N элементы, равные целому числу X

Описать процедуру RemoveX (A, N, X), удалаяющую из целочисленного массива A размера N элементы, равные целому числу X. Массив А и число N являются входными и выходными параметрами. С помощью этой процедуры удалить числа Xa, Xb, Xc из массива A, B, C размера Na, Nb, Nc соответственно и вывести размер и содержимое полученных масивов.

 

type
arr = array[1..100] of integer;
 
procedure RemoveX(var A: arr; var N,X: integer);
var
tmp: arr;
i,k: integer;
begin
k:=0;
for i:=1 to N do
if A[i] <> X then
begin
k:=k+1;
tmp[k]:=A[i];
end;
for i:=1 to k do A[i]:=tmp[i];
N:=k;
end;
 
var
A: arr;
Xa,Na,i: integer;
 
begin
readln(Na);
for i:=1 to Na do readln(A[i]);
for i:=1 to Na do write(A[i],' ');
writeln;
readln(Xa);
RemoveX(A,Na,Xa);
for i:=1 to Na do write(A[i],' ');
readln;
end.

 

 

Rate this item
(0 votes)
Login to post comments