Question

Нужно написать программу с такими условиями:
1) Найти произведение ряда S = 15*16*17*...*n
2) Определить максимальный элемент побочной диагонали массива A размерностью mхm и вывести индексы всех элементов массива, равных ему.

Answer 1

var a:array[1..10,1..10] of integer;
    m,i,j,mx:integer;
begin
write('Введите размер матрицы m=');
readln(m);
randomize;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=a[1,m];
for i:=2 to m do
if a[i,m-i+1]>mx then mx:=a[i,m-i+1];
writeln('Максимальный элемент побочной диагонали=',mx);
writeln('Индексы элементов, равных максимальному');
for i:=1 to m do
for j:=1 to m do
if a[i,j]=mx then write('[',i,',',j,'] ');
end.