TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
program Pocet;
uses crt;
var s: text;
zn: char;
A: array [' '..'z'] of integer;
begin
clrscr;
assign(s,'pokus.txt');
reset(A);
read (s,zn);
while not eof(s) do;
begin;
A[zn]:= A[zn]+1;
end;
writeln(A,zn);
close(s);
end.
Dobrý den jsem žákem střední školy a můj učitel mně nechce pustit dále do dalšího ročníku zadal mi úkol vytvořit program který přečte soubor a vypíše frekvenční tabulku znaků zatím se mi povedlo vymyslet toto může mi někdo prosím poradit ?
