Привет всем)помогите пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 10х10, в которой длина максимальной серии минимальна. (Серия-последовательность одинаковых элементов. Длина серии-количес...
Привет всем)помогите пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 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
Не нашли ответ?
Похожие вопросы