Помощь - Поиск - Пользователи - Календарь
Полная версия: Двумерные массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Neon6868
Задание: Дана целочисленная прямоугольная матрица. Определить номер столбца, в котором находится самая длинная серия одинаковых элементов.

Программа:

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.


Ozzя
FAQ для кого написан?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.