Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.02.2012, 17:16   #1
Katus
Форумчанин
 
Регистрация: 30.11.2011
Сообщений: 161
Вопрос Массивы, убрать лишние элементы

дан массив 100 эл-ов написать программу которая выдает на экран элементы массива встречающиеся более одного раза.

Алгоритм почему то не верный

Код:
program homework;

{$apptype console}

uses
	sysutils;

type 
	tarr = array [1..100] of longint;

var
	a,b: tarr;
	n,m,i,j: byte;

begin
write('N='); readln(n);
for i:=1 to n do begin 
        writeln('a[',i,']=');
        readln(a[i]);
end;
m:=0;
for i:=1 to n do begin
	k:=0; 
	for j:=1 to n do begin
		if a[i]=a[j] then
			k:=k+1;
		if k>1 then begin
			m:=m+1;
			b[m]:=a[i];
		end;
	end;
end;
for i:=1 to m do
	writeln(b[i],#32);
readln;
end.
Если лень что-то делать, заставь это делать машину ... =,
Katus вне форума Ответить с цитированием
Старый 16.02.2012, 17:53   #2
TorrentTor
Форумчанин
 
Аватар для TorrentTor
 
Регистрация: 02.11.2011
Сообщений: 105
По умолчанию

"k" добавьте в раздел переметных
Код:
n,m,i,j,k: byte;
И да чтобы нахождение и вывод были несколько правильнее
Перестройте поиск вот таким способом:
Код:
.............................
for i:=1 to n do begin
	k:=0;
	for j:=1 to n do begin
		if a[i]=a[j] then
			k:=k+1;
	end;

 	if k>1 then begin
	 		m:=m+1;
			b[m]:=a[i];
	end;

end;
.............................
Иначе будут выводится лишние символы

Последний раз редактировалось TorrentTor; 16.02.2012 в 18:05.
TorrentTor вне форума Ответить с цитированием
Старый 17.02.2012, 00:12   #3
Katus
Форумчанин
 
Регистрация: 30.11.2011
Сообщений: 161
По умолчанию

спасибо =)
Если лень что-то делать, заставь это делать машину ... =,
Katus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
убрать лишние поля из формы One_and_only PHP 2 11.07.2011 01:06
Убрать лишние пробелы ДмитрийРэй C# (си шарп) 1 22.05.2011 09:19
[Visual Basic]Убрать лишние пробелы Чуччи Помощь студентам 2 14.05.2011 11:37
Убрать лишние звуки из Memo Миша Общие вопросы Delphi 13 23.12.2009 13:34
Убрать лишние пробелы из строки SoftKoc Общие вопросы Delphi 3 03.12.2009 23:54