Версия для печати темы

Автор: Neon6868 25.12.2007 5:30

Задание: Дана целочисленная прямоугольная матрица. Определить номер столбца, в котором находится самая длинная серия одинаковых элементов.

Программа:

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я 25.12.2007 14:00

http://forum.pascal.net.ru/index.php?showtopic=2694&st=0&p=32774&#