Работа с матрицей (дописать код) (не могу вывести) - 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.

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы