// Wyszukiwanie lidera
// Data:   4.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

program prg;

const N = 80;

var
  Z : array [0..N-1] of integer;
  i, L, W : integer;
  t : boolean;

begin
  randomize;

  // Wypełniamy tablicę
  W := random(100);
  for i := 0 to N-1 do
    if random(2) = 1 then
      Z[i] := random(100)
    else
      Z[i] := W;

  // Wyszukujemy lidera
  L := 0;
  for i := 0 to N-1 do
    if L = 0 then
    begin
      W := Z[i]; L := 1;
    end
    else
      if W = Z[i] then
        inc(L)
      else
        dec(L);

  // Sprawdzamy, czy mamy lidera
  if L = 0 then
    t := false
  else
  begin
    L := 0;
    for i := 0 to N-1 do
      if W = Z[i] then
        inc(L);
    t := L > N div 2;
  end;

  // Wyświetlamy tablicę
  for i := 0 to N-1 do
    if t and (Z[i] = W) then
      write (' >', Z[i]:2)
    else
      write (Z[i]:4);

  // Wyświetlamy wyniki
  writeln;
  if t then
    writeln(W, ' : ', L)
  else
    writeln('BRAK LIDERA');
  writeln

end.

// Wyszukiwanie lidera
// Data:   4.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <ctime>

using namespace std;

const int N = 80;

int main()
{
  int Z[N], i, L, W;
  bool t;

  srand(time(NULL));

  // Wypełniamy tablicę
  W = rand() % 100;
  for(i = 0; i < N; i++)
    if(rand() % 2)
      Z[i] = rand() % 100;
    else
      Z[i] = W;

  // Wyszukujemy lidera
  L = 0;
  for(i = 0; i < N; i++)
    if(!L)
    {
      W = Z[i]; L = 1;
    }
    else
      if(W == Z[i])
        L++;
      else
        L--;

  // Sprawdzamy, czy mamy lidera
  if(!L) t = false;
  else
  {
    L = 0;
    for(i = 0; i < N; i++)
      if(W == Z[i])
        L++;
    t = L > N/2;
  }

  // Wyświetlamy tablicę
  for(i = 0; i < N; i++)
    if(t && (Z[i] == W))
      cout << " >" << setw(2) << Z[i];
    else
      cout << setw(4) << Z[i];

  // Wyświetlamy wyniki
  cout << endl;
  if(t)
    cout << W << " : " << L << endl;
  else
    cout << "BRAK LIDERA\n";
  cout << endl;
  return 0;
}

' Wyszukiwanie lidera
' Data:   4.05.2008
' (C)2020 mgr Jerzy Wałaszek
'---------------------------

Const N = 80

Dim As Integer Z(N-1), i, L, W, t

Randomize

' Wypełniamy tablicę
W = Cint(Rnd*99)
For i = 0 To N-1
  If Rnd > 0.5 Then
    Z(i) = Cint(Rnd*99)
  Else
    Z(i) = W
  End If
Next

' Wyszukujemy lidera
L = 0
For i = 0 To N-1
  If L = 0 Then
    W = Z(i): L = 1
  Elseif W = Z(i) Then
    L += 1
  Else
    L -= 1
  End If
Next

' Sprawdzamy, czy mamy lidera
If L = 0 Then
  t = 0
Else
  L = 0
  For i = 0 To N-1
    If W = Z(i) Then L += 1
  Next
  t = (L > N\2)
End If

' Wyświetlamy tablicę
For i = 0 To N-1
  If t And (Z(i) =  W) Then
    Print Using " >##";Z(i);
  Else
    Print Using "####";Z(i);
  End If
Next

' Wyświetlamy wyniki
Print
If t Then
  Print W;" : ";L
Else
  Print "BRAK LIDERA"
End If
Print
End

# Wyszukiwanie lidera
# Data:  26.02.2024
# (C)2024 mgr Jerzy Wałaszek
#---------------------------

import random

N = 80
z = []

# Wypełniamy tablicę
r = random.randrange(100)
for i in range(N):
    if random.randrange(2):
        z.append(random.randrange(100))
    else:
        z.append(r)

# Wyszukujemy lidera
c = 0
for i in range(N):
    if c == 0:
        r, c = z[i], 1
    elif r == z[i]:
        c += 1
    else:
        c -= 1
# Sprawdzamy, czy mamy lidera
if c == 0:
    t = False
else:
    c = 0
    for i in range(N):
        if r == z[i]: c += 1
    t = (c > N//2)
# Wyświetlamy tablicę
for i in range(N):
    if t and (z[i] ==  r):
        print(" >%2d" % z[i], end="")
    else:
        print("%4d" % z[i], end="")
# Wyświetlamy wyniki
print()
if t:
    print(r, ":", c)
else:
    print("BRAK LIDERA")
print()