// Zliczanie z wartownikiem
// Data:   27.04.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

program prg;

const N = 40;

var
  Z : array [0..N] of integer;
  k, i, L : integer;
begin
  randomize;
  for i := 0 to N - 1 do Z [i] := random(10);
  k       := random(10);
  Z[N]    := k;
  L       := 0;
  i       := 0;
  while true do
  begin
    if Z[i] = k then
    begin
      inc(L);
      if i = N then break;
    end;
    inc(i);
  end;
  for i := 0 to N - 1 do write(Z[i]:2);
  writeln(' ', k, ' : ', L - 1);
end.

// Zliczanie z wartownikiem
// Data:   27.04.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

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

using namespace std;

const int N = 40;

int main()
{
  int Z[N + 1], k, i, L;

  srand(time(NULL));
  for(i = 0; i < N; i++) Z[i] = rand() % 10;
  Z[N] = k = rand() % 10;
  L = 0;
  for(i = 0; ;i++)
    if(Z[i] == k)
    {
      L++;
      if(i == N) break;
    }
  for(i = 0; i < N; i++) cout << setw(2) << Z[i];
  cout << " " << k << ": " << L - 1 << endl;
  return 0;
}

' Zliczanie z wartownikiem
' Data:   27.04.2008
' (C)2020 mgr Jerzy Wałaszek
'---------------------------

Const N = 40

Dim As Integer Z(N), k, i, L

Randomize
For i = 0 To N - 1
  Z(i) = Cint(Rnd * 9)
Next
k = Cint(Rnd * 9)
Z(N) = k
L = 0
i = 0
Do
  If Z(i) = k Then
    L += 1
    If i = N Then Exit Do
  End If
  i += 1
Loop
For i = 0 To N - 1
  Print Using "##";Z(i);
Next
Print " "; k; " : "; L-1
End

# Zliczanie z wartownikiem
# Data:   27.04.2008
# (C)2020 mgr Jerzy Wałaszek
# --------------------------

import random

N = 40  # liczba elementów
Z = []
for i in range(N):
    Z.append(random.randrange(10))
k = random.randrange(10)
Z.append(k)  # wartownik
L = 0
i = 0
while True:
    if Z[i] == k:
        L += 1
        if i == N: break
    i += 1
c = 0
for i in range(N):
    print("%2d" % Z[i], end="")
    c += 1
    if c == 50:
        c = 0
        print()
print()
print(" %1d : %d" % (k, L - 1))
print()