Одномерный массив, паскаль

[Flower2]

Определить имеются ли в одномерном массиве только 2 одинаковых элемента

[Stilet]

Показывай как массив вводишь.

[Flower2]

Нашла, не много сама доделала.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k:byte;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=1;
if k=1 then write('В массиве имеются одинаковые элементы')
else write('В массиве одинаковых элементов нет!');
readln
end.

Не понимаю пару строчек
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=1;
if k=1

[Serge_Bliznykov]

не смущает, что программа ваша решает немного другую задачу?
(проверяется есть ли в массиве одинаковые элементы, а у Вас в задании: "имеются ли в одномерном массиве только 2 одинаковых элемента" )

Не понимаю пару строчек

это несложно. алгоритм очень простой:

k:=0; {флажок одинаковости поставили в 0 (это значит, изначально считаем, что одинаковых элементов в массиве НЕТ.}
for i:=1 to n-1 do {цикл от первого элемента до предпоследнего}
  for j:=i+1 to n do  {внутренний цикл от элемента, следующего за I-м и до послеследнего элемента}
   if a[j]=a[i] then k:=1; {если Iй и Jй элементы массива одинаковы, установили признак, что есть одинаковые}
if k=1 then write('В массиве имеются одинаковые элементы')

кстати, циклы (и внешний и внутренний) при данном алгоритме можно смело прерывать, как только флаг K стал равным единице! Очевидно, что если он стал равным единице, то: он уже не изменится -> в массиве есть одинаковые элементы и проверять дальше смысла уже нет....

[Poma][a]

кстати, циклы (и внешний и внутренний) при данном алгоритме можно смело прерывать, как только флаг K стал равным единице!

Неа
Когда стал равным 2, то смело прерываем.. А пока 1 нужно продолжать крутить, т.к. задание :

Определить имеются ли в одномерном массиве только 2 одинаковых элемента

[Serge_Bliznykov]

Сообщение от Poma][a

Неа
Когда стал равным 2, то смело прерываем.. А пока 1 нужно продолжать крутить, т.к. задание :

Определить имеются ли в одномерном массиве только 2 одинаковых элемента

Рома][а, Вы всёрьёз думаете, что в коде:

for i:=1 to n-1 do
  for j:=i+1 to n do
      if a[j]=a[i] then k:=1;

k может стать равным двум?!?!?

[Poma][a]

k может стать равным двум?!?!?

Я имел ввиду, что туда нужно прикрутить Inc (k)..

[Serge_Bliznykov]

Сообщение от Poma][a

Я имел ввиду, что туда нужно прикрутить Inc (k)..

дело в том, что если там поставить Inc(k), тогда, конечно, k может стать и 2 и больше.
Но в этом случае цикл прерывать не нужно. А сравнивать нужно именно с единицей (1 сигнализирует, что найдена одна пара одинаковых элементов)
т.е. код может выглядеть так:

  k:=0;
  for i:=1 to n-1 do
     for j:=i+1 to n do
         if a[j]=a[i] then k := k+1;  {пишу там, чтобы TC было понятней. хотя, конечно, inc(k) лучше.}
  if k=0 then writeln('В массиве нет одинаковых элементов ')
  else
    if k=1 then writeln('В массиве имеется два одинаковых элемента')
    else writeln('В массиве более двух одинаковых элементов.');

[Poma][a]

Но в этом случае цикл прерывать не нужно

Поспорю!

var
	a : array [1..100] of Integer;
	n, i, j, k : Integer;
	
begin
	ReadLn (n);
	
	for i := 1 to n do
		Read (a[i]);
	
	k := 0;
	for i := 1 to n-1 do begin
		for j := i+1 to n do
			if a[j] = a[i] then
				Inc (k);
				
		if k > 2 then 
			Break
	end;
	
	case k of
		0 : WriteLn ('В массиве нет одинаковых элементов');
		1 : WriteLn ('В массиве имеется одна пара одинаковых элементов')
	else
		WriteLn ('В массиве больше 2 одинаковых элементов')
	end
end.

[Serge_Bliznykov]

Поспорю!

соглашусь.
с поправкой

		
		if k >= 2 then 
			Break