Элементами массива a[1..n] являются неубывающие массивы [1..m] целых чисел (a: array [1..n] of array [1..m] of integer; a[1][1] <= ... <= a[1][m], ..., a[n][1] <= ... <= a[n][m]).
Известно, что существует число, входящее во все массивы a[i] (существует такое х, что для всякого i из [1..n] найдётся j из [1..m], для которого a[i][j]=x).
Найти одно из таких чисел х.
РЕШЕНИЕ
for k:=1 to n do begin
b[k]:=1;
end;
eq := true;
for k := 2 to n do begin
eq := eq and (a[1][b[1]] = a[k][b[k]]);
end;
{инвариант: оставшиеся части пересекаются,т.е.существует такое х,
что для всякого i из [1..n] найдётся j из [1..m],
не меньшее b[i], для которого a[i][j] = х; eq <=> первые элементы оставшихся частей равны}
while not eq do begin
s := 1; k := 1;
{a[s][b[s]] - минимальное среди a[1][b[1]]..a[k][b[k]]}
while k <> n do begin
k := k + 1;
if a[k][b[k]] < a[s][b[s]] then begin
s := k;
end;
end;
{a[s][b[s]] - минимальное среди a[1][b[1]]..a[n][b[n]]}
b [s] := b [s] + 1;
for k := 2 to n do begin
eq := eq and (a[1][b[1]] = a[k][b[k]]);
end;
end;
writeln (a[1],b[1]);
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.