Задана целочисленная таблица Аm,n, строки которой упорядочены по неубыванию.

[Vadim228]

Задана целочисленная таблица Аm,n, строки которой упорядочены по неубыванию. Требуется найти и вывести на экран числа, которые встречаются во всех строках. Если таких чисел нет, вывести соответствующее сообщение.

[newerow1989]

const m=10;
      n=8;
      count=30;
var a:array[1..m,1..n] of integer;
    i,j,k,c:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(count);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For c:=0 to count-1 do
   begin
      k:=0;
      For i:=1 to m do
         For j:=1 to n do
            If a[i,j]=c then
            begin
               k:=k+1;
               Break;
            end;
      If k=0 then
         Writeln('no ',c) else
         Writeln(c,' --> ',k);
   end;
   Readln;
end.

Сойдет?

[Aleksandr H.]

newerow1989, не сочтите за придирку, но...прошу комментарий к коду. Что он делает?

Мы, наверное, опять по разному поняли задание

uses crt;
const m=5; n=5;
var a:array[1..m,1..n]of integer;
i,j,k,ch:byte;f:boolean; s:set of byte;
BEGIN
clrscr;
s:=[];
randomize;
for i:=1 to m do
begin
for j:=1 to n do
 begin
  a[i,j]:=random(25);
  write(a[i,j]:5);
 end;

writeln;
end;
writeln('----------');
for i := 1 to n do
begin
  ch:=0;
  for j:= 2 to m do
   begin
    f:=false;
    for k := 1 to n do
      if a[1,i] = a[j,k] then begin f:=true; break; end;
    if f then inc(ch)
   end;
  if (ch=m-1) and (not (a[1,i] in s)) then begin writeln(a[1,i]); include(s,a[1,i]) end;
end;
if s = [] then writeln('NET');
readln;
end.

[newerow1989]

Я подсчитывал каждое число (от 0 до count-1)! Т.е. сколько раз встречается хотя бы 1 раз в строках. Если имеется такое число, выхожу сразу из цикла Break;

встречаются во всех строках

немножко не доглядел, тогда подкорректировать:

       If k=m then
         Writeln(c) else
         Writeln('no ',c);

[Aleksandr H.]

Непонимаю

Какой ответ будет для матрицы

((1,1,1)
(2,2,2)
(3,3,3))

[newerow1989]

const m=3;
      n=3;
      count=3;
var a:array[1..m,1..n] of integer;
    i,j,k,c:integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=i;//Random(count);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For c:=0 to count-1 do
   begin
      k:=0;
      For i:=1 to m do
         For j:=1 to n do
            If a[i,j]=c then
            begin
               k:=k+1;
               Break;
            end;
      If k=m then
         Writeln(c) else
         Writeln('no ',c);
   end;
   Readln;
end.

Безымянный.jpg
У меня правда с нуля отсчет идет - ничего страшного, суть такая же

[Aleksandr H.]

А как с условием?

Сообщение от Vadim228

Требуется найти и вывести на экран числа, которые встречаются во всех строках.

имхо для
((1,1,1)
(2,2,2)
(3,3,3))
ответ "НЕТ".
Для
((1,1,1)
(1,2,2)
(3,1,2))
ответ "1" потому что "1" есть в каждой строке

Или я не правильно условие понял и к чему условие "строки которой упорядочены по неубыванию. "? Какие это строки "по неубиванию": каждый i+1 елемент больше i-го или сумма элементов первой строки больше суммы элементов второй строки?

[newerow1989]

const m=3;
      n=3;
      count=3;
var a:array[1..m,1..n] of integer;
    i,j,k,c:integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=i;//Random(count);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   d:=false;
   For c:=0 to count do
   begin
      k:=0;
      For i:=1 to m do
         For j:=1 to n do
            If a[i,j]=c then
            begin
               k:=k+1;
               Break;
            end;
      If k=m then
      begin
         d:=true;
         Writeln(c);
      end;
   end;
   If not d then
      Writeln('no!');
   Readln;
end.

Так что ли?