Работа с матрицей (дописать код) (не могу вывести) - Pascal ABC
Формулировка задачи:
Задание :
Дана символьная матрица. Расстоянием между двумя строками назовем количество позиций, в которых различаются эти строки. Для каждой строки вычислить расстояние от нее до первой.
Не могу вычислить расстояние,т.к не могу понять за что хвататься. По идее можно сделать отсчет от последний строки до самой первой с уменьшением на 1 (в с++ было бы так --i),но на паскале не могу понять как сделать. Если мой код очень плохой или вам не удобен - то напишите свой(желательно с объяснением расчета расстояния)Решение задачи: «Работа с матрицей (дописать код) (не могу вывести)»
textual
Листинг программы
const kol_strok=10; kol_stolbcov=4; var matrix:array[1..kol_strok,1..kol_stolbcov] of char; i,j:integer; begin randomize; Writeln('Матрица А:'); for i:=1 to kol_strok do begin for j:=1 to kol_stolbcov do begin matrix[i,j]:=Char(Random(42)+48); write(matrix[i,j],' '); end; writeln; end; {Пытаемся вычислить расстояние} writeln('Расстояние S'); for i:=1 to kol_strok do Writeln('Расстояние между ',i,' строчкой и первой составляет ',i-1); end.