Задание:
Привет всем) помогите пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 10 х 10, в которой длина максимальной серииминимальна. (Серия-последовательность одинаковых элементов. Длина серии-количество одинаковых элементов). (паскаль) очень очень нужно) заранее спасибо)
Решение:
var i, j, minlen, ind, count, countrow: ineteger; A: array[10, 10] of integer; begin for i: =1 to 10 do for j: =1 to 10 do readln (A[i,j]); ind: =1; minlen: =11; for i: =1 to 10 do begin count: =1; countrow: =1; for j: =2 to 10 do begin if (A[i,j]=A[i,j-1]) then inc (count) else begin if (count>countrow) then countrow: =count; count: =1; end; end; if (countrow Знаете другой ответ?