65

Привет всем) помогите пож-та с задачей

sasha2765 06 марта 2023

Привет всем) помогите пож-та с задачей. Найти и распечатать строку заданной целочисленной матрицы размером 10 х 10, в которой длина максимальной серииминимальна. (Серия-последовательность одинаковых элементов. Длина серии-количество одинаковых элементов). (паскаль) очень очень нужно) заранее спасибо)

категория: информатика

75

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

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...