Удалить из массива все элементы которые встречаются менее двух раз.

@Sakree · Регистрация: 28.05.2013

Дан целочисленный массив ,состоящий из n элементов. Удалить из массива все элементы которые встречаюстя менее двух раз.

@Puporev · 29.05.2013, 12:35

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
{удаление встречающихся 1 раз}
i:=1;
while i<=n do
 begin
  k:=0;
  for j:=1 to n do
  if a[j]=a[i] then k:=k+1;
  if k=1 then
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
  else i:=i+1;
 end;
writeln('Удаление элементов, встреченных менее 2 раз:');
if n=0 then write('Все элементы удалены')
else
for i:=1 to n do
write(a[i]:4);
end.

@Sakree 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 15
		1
	Удалить из массива все элементы которые встречаются менее двух раз. 29.05.2013, 11:48. Показов 2018. Ответов 1 Метки нет (Все метки) Дан целочисленный массив ,состоящий из n элементов. Удалить из массива все элементы которые встречаюстя менее двух раз. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Удалить из массива все элементы которые встречаются менее двух раз.

Решение