Дан массив nxm. Найти количество строк, в которых первый элемент совпадает с последним.
program pervaya;
const m=5;
n=4;
var ar: array[1..n,1..m] of integer;
i,j,kolvo:integer;
begin
randomize;
kolvo:=0;
{заполнение матрицы случайными числами и вывод ее на экран}
for i:=1 to n do
begin
for j:=1 to m do
begin
ar[i,j]:=random(5);
write(ar[i,j],' ');
end;
writeln;
end;
{подсчет подходящих строк}
for i:=1 to n do
if ar[i,1]=ar[i,m] then
inc(kolvo);
writeln(kolvo);
readln;
end.