Паскаль.необходимо удалить из массива все элементы содержащие цифру 5

1

Ответы и объяснения

  • hack1
  • середнячок
2013-11-10T13:51:30+04:00
N1=10;
var
a:array[1..n1]of integer;
x,n,i,j,k:integer;
begin
write('x='); read(x);
write('n='); read(n);
if (n>=1) and (n<=10) then
begin
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
for i:=n downto 1 do
if a[i]=x then
begin
k:=i;
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=0;
n:=n-1;
end;
for i:=1 to n do
writeln('a[',i,']',a[i]);
end
else write('error');
end.