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 d...
Založil Woody; 14 názorů, poslední před 10 hodinami – nevyřešeno
Založil Woody; 14 názorů, poslední před 10 hodinami – nevyřešeno