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

Matrix39. Дана целочисленная матрица размера $$M \times N$$. Найти количество ее столбцов, все элементы которых различны.

Решение:

program Matrix39;
var
  a:array [1..10,1..10] of integer;
  Rez, M, N, i, j:Integer;
  Column : 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;
  Rez:=0;
  for  j:=1 to N do
  begin
   i:=1;
   Column:=[];
   While (not(a[i,j] in Column)) and (i<=M) do
    begin
     Column:=Column+[a[i,j]];
     inc(i);
    end;
   if i=M+1 then inc(Rez);
  end;
  Writeln(Rez);
end.

program Matrix39;

var

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

Rez, M, N, i, j:Integer;

Column : 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;

Rez:=0;

for j:=1 to N do

begin

i:=1;

Column:=[];

While (not(a[i,j] in Column)) and (i<=M) do

begin

Column:=Column+[a[i,j]];

inc(i);

end;

if i=M+1 then inc(Rez);

end;

Writeln(Rez);

end.

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

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

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

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

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