Очень сложная задача на Pascal ABC!

[d00ker]

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

[maladoy]

ничего сложного! сам то пробовал?

[d00ker]

Если бы сам написал то сюда бы не писал ;-)

[5naip]

var
  mass:array[0..10] of integer;
  i:integer;
procedure ggg (a: array of integer; n:integer; x:integer);
var
i:integer;
begin
for i:=0 to n do
  begin
    if a[i] = x then a[i]:=0;
    writeln(a[i]);
  end;
end;

begin
randomize;
for i:=0 to 10 do
  mass[i]:=random(10)+1;
ggg(mass,10,5);
readln;
end.

должно быть так...насколько я понял. Писал через делфи,так как паскаля нет под рукой

[maladoy]

if a[i] = x then a[i]:=0;
    writeln(a[i]);

он тогда и 0 выведет а их вроде как и не должно быть

program maladoy;
uses crt;
type mass=array[1..100] of integer;
var  a,b,c:mass;
xa,na,xb,nb,xc,nc:integer;
procedure remove(var m:mass;var n:integer;var x:integer);
var i,k:integer;
     mv:mass;
begin
k:=1;
for i:=1 to n do begin
writeln('vvedite ',i,'element massiva');
readln (m[i]);
if m[i]<>x then
begin
 mv[k]:=m[i];
 k:=k+1;
end; 
end;
writeln ('razmer massiva= ',k);
writeln('------------------');
for i:=1 to k do
writeln(k,'-tiy element= ',mv[i]);
writeln('------------------');
writeln('4iclo elementov = ',x,':',n-k);
writeln('------------------');
end;
begin
clrscr;
writeln ('vvedite Хa,Na');
readln(Xa,Na);
remove (a,Na,Xa);
writeln ('vvedite Хb,Nb');
readln(Xb,Nb);
remove (b,Nb,Xb);
writeln ('vvedite Хc,Nc');
readln(Xc,Nc);
remove (c,Nc,Xc);
readln;
end.

[d00ker]

я сам условие не очень понял...это проверил, не работает...(((

[5naip]

он тогда и 0 выведет а их вроде как и не должно быть

согласен,так и есть..выведет 0.
я просто не сориентировался как удалить. А мысля переправить все это дело в др. массив пришла уже опосля...
ну,я собсно, стремился создать, так сказать, костяк...чтоб хоть как-то автору помочь.

[maladoy]

чтоб хоть как-то автору помочь

ему хоть как не надо ему надо рабочий код причем не ударив пальцем о палец

Если бы сам написал то сюда бы не писал ;-)

вот так вот

[d00ker]

ему хоть как не надо ему надо рабочий код причем не ударив пальцем о палец

ну...не совсем так, я бы сам написал, но не знеаю как!))