Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке

@lera_boom · Регистрация: 12.11.2012

Задан массив А. Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке. Помогите пожалуйста

Знаю, что надо создать массив индексов, но как реализовать не понимаю.

@lera_boom · 24.12.2012, 21:44 **[ТС]**

Pascal

program massiv;
const N=10;
var a,b:array[1.. N] of integer;
i,j,k,iB,count:integer;
flag:boolean;
begin
for i:=1 to N do
begin 
write ('Vvedite chislo',i,':');
readln(a[i]);
iB:=1;
end;
for i:=N downto 1 do
begin
count:=0;
for j:=1 to N do
begin
if (a[i]=a[j]) then count:=count+1;
end;
if (count>=2) then
begin
flag:=true;
for k:=1 to iB-1 do
begin
if (a[i]=b[k]) then flag:=false;
end;
if (flag) then
begin
b[iB]:=a[i];
iB:=iB+1;
end;
end;
end;
writeln('array B');
for i:=1 to iB-1 do
begin
write(b[i]);
write(' ');
end;
readln;
 
END.

@lera_boom 0 / 0 / 2 Регистрация: 12.11.2012 Сообщений: 8
		1
	Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке 12.11.2012, 23:06. Просмотров 1134. Ответов 1 Метки нет (Все метки) Задан массив А. Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке. Помогите пожалуйста Знаю, что надо создать массив индексов, но как реализовать не понимаю. 0

Опции темы

Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке

Решение