Всем) пож-та с . найти и распечатать строку заданной целочисленной матрицы размером 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<minlen) then
begin
minlen:=countrow;
ind:=i;
end;
end;
for j:=1 to 10 do
writeln(A[ind,j])
end.