Дана матрица размерностью 5*5, заполненная случайными числами от 1 до 20. Необходимо написать программу. Требуется: а) определить максимальный элемент среди элементов, расположенных под побочной

диагональю матрицы;

б) составить одномерный массив из произведений каждого столбца матрицы;

в) определить № столбца, где произведение минимально.

Разрабатываемое приложение должно содержать:

1. Ввод исходных данных с датчика случайных чисел

2. Вывод на экран исходного массива

3. Необходимые вычисления

4. Вывод на экран результатов вычислений и результирующего одномерного массива

Язык программирования - PASCAL

const

 n=5;

type

 st = array [1..n] of integer;

var

 a:array [1..n] of st;

 b:st;

 i,j,maxp:integer;

begin

 for i:=1 to n do

   begin

     b[i]:=1;

     for j:=1 to n do

       begin    

         a[j,i]:=random(20)+1;

         b[i]:=b[i]*a[j,i];

       end;

   end;

 maxp:=0;  

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         write(a[i,j]:4);

         if i+j>n+1 then

           if a[i,j]>maxp then

             begin

               maxp:=a[i,j];

             end;

       end;

     writeln;

   end;

 writeln;

 writeln('Максимальное под побочной диагональю: ',maxp);

 for i:= 1 to n do

   write(b[i],' ');

end.