матрица

[Margosham-k]

Дана матрица nxm. Каждая строка массива упорядочена по возрастанию. Найти число, встречающееся во всех строках.

[ByAlex]

Сообщение от Margosham-k

Дана матрица nxm. Каждая строка массива упорядочена по возрастанию. Найти число, встречающееся во всех строках.

Программа не сложная! Что у вас не получается?

[Margosham-k]

не могу решить...не знаю как, для меня она кажется сложной....может поможете?=)

[ByAlex]

Сообщение от Margosham-k

не могу решить...не знаю как, для меня она кажется сложной....может поможете?=)

Сейчас что-нибудь сбацаем!

[Hacker19_90]

min := 1;
max := 1;
for i := 2 to rows do
begin
    if matrix[min, 1] > matrix[i, 1] then min := i;
    if matrix[max, cols] < matrix[i, cols] then max := i;
end;
for k := matrix[min,1] to matrix[max,cols] do
begin
    isFind := false;
    for i := 1 to rows do
    begin
        for j := 1 to cols do
            if k = matrix[i,j] then
            begin 
                isFind := true;
                break;
            end;
        if isFind = false then break;
    end;
    if isFind then Writeln (k);
end;

Ну как-то так!

[ByAlex]

Вот, держи, Delphi!

program Project1;
uses
  SysUtils;
const
  n=5;
  m=5;
var
  A:array[1..n,1..m] of Integer;
  i,j,k,kol:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Vvedite matrix[',n,',',m,'] - ');
  for i:=1 to n do
    for j:=1 to m do
      read(A[i,j]);
  kol:=0;
  write('Result = ');
  for i:=1 to m do
  begin
    for j:=2 to n do
      for k:=1 to m do
      begin
        if A[1,i]=A[j,k] then
          Inc(kol);
      end;
    if kol=n-1 then
      Write(i,' ');
    kol:=0;
  end;
  Readln;
  Readln;
end.

Если в конце программы не выводит результат, значит таких элементов нет!

[Margosham-k]

Большое вам спасибо!!!!! вы просто прелесть!")))