dd

//Napiste program ktorý si vypýta n celých cisiel prvkov pola vypíše obsah pola na obrazovku a dalej vypíše či sa zadané číslo nachádza v poli a kolko krát.
//Napiste program ktorý usporiada prvky pola od najmenšieho po najväčší
//Napíšte program ktorý usporiada prvky pola od najväčšieho po najmenší
//Napíšte program ktorý z hodnôt prvkov pola vypíše tabulku rozdelenia početnosti
//Napíšte program ktorý z hodnôt prvkov pola vytvorý nové pole a bude obsahovať iba rôzne
program prvkypola;
{$APPTYPE CONSOLE}
uses SysUtils;
var c:array[1..30] of integer;
    i,n,pocet:byte;
    hc:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko cisiel chcete zadat?: ');
  readln(n);
  for i:=1 to n do
    begin
      write('Zadajte ',i,' cislo: ');
      readln(c[i]);
    end;
  //Vypis
  for i:=1 to n do
    begin
      write(c[i]:3,' ');
    end;
  //Pocetnost
  writeln;
  write('Ake cislo hladas?: ');
  readln(hc);
  pocet:=0;
  for i:=1 to n do
    begin
      if hc=c[i] then inc(pocet);
    end;
  writeln('Cislo ',hc,' sa v poli nachadza ',pocet,' krat');
  readln;
end.