frekvence_zadanych_cisel [Programování]

Zadání

Napište program, který bude v cyklu číst ze vstupu celá čísla z intervalu 1 až 9, dokud uživatel nezadá -1. Pak čtení skončí a program vypíše tabulku četností zadaných čísel, tj. něco jako: Cislo 1 jsi zadal(a) 2krat, Cislo 2 jsi zadal(a) 8krat,: : : Cislo 9 jsi zadal(a) 5krat.

Řešení

 
var
  tabulka: array[1..9] of integer;
  cislo, i: integer;
 
begin
  {vymazeme tabulku cetnosti - vsechny cetnosti jsou 0}
  for i := 1 to 9 do
    tabulka[i] := 0;
 
  {cteme cisla a postupne aktualizujeme cetnosti}
  repeat
    read(cislo);
    if ((cislo >= 1) and (cislo <= 9)) then
      tabulka[cislo] := tabulka[cislo] + 1;
  until cislo = -1;
 
  {tabulku vypiseme}
  for i := 1 to 9 do
    writeln('Cislo ', i, ' jsi zadal(a) ', tabulka[i], ' krat.');
end.