Подсчитать, сколько раз в символьной матрице встречается каждый символ - Free Pascal
Формулировка задачи:
Двумерный массив М×N заполнить случайными символами английского алфавита(заглавные). Вывести на экран,сколько раз встречается каждый символ.(Порядковый номер А=65,Z=90).
Решение задачи: «Подсчитать, сколько раз в символьной матрице встречается каждый символ»
textual
Листинг программы
a[i,j]:=Chr(Ord('A')+Random(Ord('Z')-Ord('A')+1));