Программа:
Program ABC;
const
m=5;
n=4;
type
mas1=array[1..m,1..n] of integer;
mas2=array[1..n] of integer;
var
a:mas1;
b:mas2;
i,j,max,l,z,maxim:integer;
Begin
randomize;
for i:=1 to m do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(5);
write(a[i,j]:3);
end;
end;
writeln;
b[j]:=1;
max:=0;
for j:=1 to n do
begin
z:=a[i,j];
for i:=1 to m do if a[i,j]=z then b[j]:=b[j]+1;
if b[j]>max then
begin
max:=b[j];
maxim:=j;
end;
end;
writeln('nomer stolbca gde samaya dlinnaya seriya odinakovix elementov:',maxim);
End.