Определить частоту встречаемости каждого символа в массиве - Pascal
Формулировка задачи:
Дан массив, состоящий из символьных значений. Определить частоту встречаемости каждого символа в массиве.
Хотел создать строку из символов русского алфавита, и поочереди перебирать их в другом, неполучилось
помогите плиз а то решил уже 14 задач мозг отказываеться работать...
И еще запарка
Найдите сумму элементов из заштрихованной области массива размерностью N на N. (заштрихованая область, все элементы по бокам границы матрицы...
буду очень признателен...
Решение задачи: «Определить частоту встречаемости каждого символа в массиве»
textual
Листинг программы
uses crt; const n=300; var s:array[1..n] of char;{массив символов} a:array[byte] of integer;{массив встречаемости символов в массиве} i,j:integer; c:char; begin clrscr; randomize; for i:=1 to n do begin s[i]:=chr(random(223)+33); write(s[i]); end; writeln; writeln; for i:=33 to 255 do a[i]:=0;{обнулим исходный массив встречаемости} for i:=1 to n do a[ord(s[i])]:=a[ord(s[i])]+1; writeln('Встречаемость символов:'); j:=0; for i:=33 to 255 do if a[i]>0 then{если ячейка не пустая} write(chr(i),'-',a[i]:2,' ');{выводим символ и количество его вхождений} readln end.