Występowanie elementu w tablicy

Question

Witam,

W programie podajemy ilość liczb które chcemy wpisać, następnie je wpisujemy, po czym na wyjściu mamy uzyskać odpowiedź TAK lub NIE w zależności od tego, czy wśród zestawu liczb którakolwiek liczba pojawiła się co najmniej 3 razy.

Udało mi się napisać coś takiego, tylko nie działa to do końca dobrze, ponieważ dostaje 5 komunikatów tak lub nie, gdyż każda liczba jest sprawdzana osobno.

 

program trzyelementy;

var
tab: array[0..1000] of LongInt;
i, j, ileliczb: integer;
licznik: array[0..1000] of LongInt;

begin
readln(ileliczb);

for i:=1 to ileliczb do
     begin
     read(tab[i]);
 end;

for i:=1 to ileliczb do
begin
     for j:=1 to ileliczb do
     begin
     if(tab[i]=tab[j]) then
     licznik[i]:=licznik[i]+1;
     end;
     if(licznik[i]>=3) then writeln('TAK')
     else
     writeln('NIE');

end;

readln();
end.

Answer 1

Tworzenie olbrzymiej tablicy do zliczania wystąpień nie za bardzo ma sens w tym przypadku. Wystarczy pojedyncza zmienna.

Żeby informacja tak/nie występowała tylko raz trzeba przenieść ją poza pętlę.

Program mógłby wyglądać tak (chociaż to wciąż nie jest najbardziej optymalna wersja):

program trzyelementy;

var
tab: array[0..1000] of LongInt;
i, j, ileliczb: integer;
licznik :integer;
trzyrazy :boolean;

begin
readln(ileliczb);

for i:=1 to ileliczb do
begin
  read(tab[i]);
end;
trzyrazy := false;
for i:=1 to ileliczb do
begin
  licznik := 0;
  for j:=1 to ileliczb do
  begin
    if(tab[i]=tab[j]) then
      licznik := licznik + 1;
  end;
  if licznik >= 3 then
    trzyrazy := true;
end;
if trzyrazy then
  writeln('TAK')
else
  writeln('NIE');
readln();
end.  

Należałoby też dodać komunikaty dla użytkownika przy wprowadzaniu liczb.

Comments

Dziękuję bardzo za pomoc :)