Найти и распечатать числа, которые встречаются в массиве более одного раза

@xpmail · Регистрация: 19.01.2010

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

Одномерный массив А состоит из 30 элементов. Найти и распечатать числа, которые встречаются в массиве более одного раза.
Помогите сделать

@Тамила · 19.01.2010, 20:13

подправьте, как нужно вам...

Pascal

uses crt;
var
a:array[1..30]of integer;
i,j,ch,kol:integer;
begin clrscr;
for i:=1 to 30 do
 begin
  a[i]:=random(30);
  write(a[i],'  ');
 end;
writeln;
for j:=1 to 30 do
 begin
  kol:=0;
  ch:=a[j];
  for i:=1 to 30 do
  if a[i]=ch then inc(kol);
  if kol>1 then
  writeln('element ',ch,' vstrechaetsya ',kol,' raz');
 end;
readkey;
end.

@xpmail · 19.01.2010, 20:24 **[ТС]**

Сообщение от Тамила

подправьте, как нужно вам...

Это тема Двумерные массивы, Сортировка
массивов

@Inadequate · 20.01.2010, 15:43

Сообщение от Задание

Одномерный массив А состоит из 30 элементов

Сообщение от xpmail

Это тема Двумерные массивы, Сортировка
массивов

Вы о чем думали, когда писали своё условие?

@xpmail 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 11
		1
	Найти и распечатать числа, которые встречаются в массиве более одного раза 19.01.2010, 19:54. Показов 1707. Ответов 3 Метки нет (Все метки) Одномерный массив А состоит из 30 элементов. Найти и распечатать числа, которые встречаются в массиве более одного раза. Помогите сделать 0

@xpmail 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 11
	19.01.2010, 20:24 [ТС]	3
	Сообщение от Тамила подправьте, как нужно вам... Это тема Двумерные массивы, Сортировка массивов 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	20.01.2010, 15:43	4
	Сообщение от Задание Одномерный массив А состоит из 30 элементов Сообщение от xpmail Это тема Двумерные массивы, Сортировка массивов Вы о чем думали, когда писали своё условие? 0