Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз

@Дари · Регистрация: 28.03.2015

Author24 — интернет-сервис помощи студентам

Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз. Должен получиться массив А[5]:41410

@Puporev · 24.09.2015, 09:37

Pascal

type mas=array[1..7] of integer;
const a:mas=(4,1,4,3,1,9,0);
var b:mas;
    n,i,j,k:integer;
begin
n:=7;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:3);
writeln;
b:=a;
i:=1;
while i<=n do
 begin
  k:=0;
  for j:=1 to 7 do
  if(b[i] mod 2<>0)and(b[i]=a[j]) then k:=k+1;
  if k=1 then
   begin
    if i=n then n:=n-1
    else
     begin
      for j:=i to n-1 do
      b[j]:=b[j+1];
      n:=n-1;
     end;
   end
  else i:=i+1;
 end;
writeln('Удаление');
for i:=1 to n do
write(b[i]:3);
end.

@Дари 0 / 0 / 0 Регистрация: 28.03.2015 Сообщений: 6
		1
	Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз 24.09.2015, 08:35. Показов 1939. Ответов 1 Метки нет (Все метки) Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз. Должен получиться массив А[5]:41410 0

	24.09.2015, 09:37

Опции темы

Из массива A [7]: 4143190 удалить нечетные элементы, встречающиеся в массиве только один раз

Решение