Question

Составление программ с двумерными массивами ( в пасхале )
Сформировать массив из положительных элементов той строки матрицы А размерности n×n,где обнаружен наибольший элемент этой матрицы

Answer 1

const

 n=5;

var

 i,j,maxi,maxj:integer;

 a:array [1..n,1..n] of integer;

 b:array of integer;

begin

 maxi:=1; maxj:=1;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(101)-50;

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

         if a[i,j]>a[maxi,maxj] then

           begin

             maxi:=i;

             maxj:=j;

           end;

       end;

     writeln;

   end;

 writeln;

 writeln('Строка: ', maxi);

 j:=1; i:=1;

 repeat

   if a[maxi,j] >0 then

     begin

       setlength(b,i);

       b[i-1]:=a[maxi,j];

       inc(i);

     end;

   inc(j);

 until j>n;

 for j:=0 to length(b)-1 do

   write(b[j]:4);

 b:=nil;

end.