Quote (Garik)
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.
var
d:array[1..100,1..100];
n,m,i,j,s:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(d[i,j]);
for i:=1 to n do
for j:=2 to m-1 do
if (d[i,j]=d[i,j-1])and(d[i,j]=d[i,j+1]) then s:=s+1;
writeln(s);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
