Решаем задачи Абрамян на Паскале. Matrix40

Matrix40. Дана целочисленная матрица размера $$M \times N$$. Найти номер последней из ее строк, содержащих максимальное количество одинаковых элементов.

Решение:

program Matrix40;
var
  a:array [1..10,1..10] of integer;
  NumMax,Num, RowMax, M, N, i, j:Integer;
  Row : set of byte;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for  i:=1 to M do
  begin
   Row:=[];
   Num:=0;
   for j:=1 to N do
     if (a[i,j] in Row) then inc(Num)
     else Row:=Row+[a[i,j]];

   if (Num>=NumMax) or (i=1) then
    begin
     NumMax:=Num;
     RowMax:=i;
    end;

  end;

  Writeln(RowMax);
end.

program Matrix40;

var

a:array [1..10,1..10] of integer;

NumMax,Num, RowMax, M, N, i, j:Integer;

Row : set of byte;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i:=1 to M do

begin

Row:=[];

Num:=0;

for j:=1 to N do

if (a[i,j] in Row) then inc(Num)

else Row:=Row+[a[i,j]];

if (Num>=NumMax) or (i=1) then

begin

NumMax:=Num;

RowMax:=i;

end;

Writeln(RowMax);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix40

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ