Kod: Zaznacz cały
program znaki;
uses crt;
var s,i,n,d:integer; k:char; tab: array [1..100] of char; tab2: array[1..100] of integer;
begin
repeat
writeln('Podaj ciag znakow N');
readln(n);
until (n>0) and (n<101);
for i:=1 to N do
begin
writeln('Podaj litere');
readln(tab[i]);
end;
for k:='a' to 'z' do
begin
for i:=1 to N do
if tab[i]=k then
s:=s+1;
writeln('Ilosc znakow ' ,k, ' to ' ,s);
end;
readkey;
end.
Program źle niestety zlicza, wydaje mi sie, ze tu powinna byc zastosowana tablica lecz nie wiem jak. Z gory dzieki za pomoc.