Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>
Ответ ВГАБ.
Задача решается легко, если представить поисковые запросы в виде диаграммы, как на картинке. Тогда операция & будет означать пересечение областей, а | - объединение.
Костя - Гирлянды из золотой бумаги;
Женя - Гирлянды из серебристой бумаги;
Дима - Хлопушки из золотой бумаги;
Вадим - Шары из красной бумаги.