Дана программа: Program E2_1;Var a: Array [1..8] Of Integer;M, k: Integer;BeginFor k := 1 To 8 Do Readln (a[k]);M := a[1];For k := 2 To 8 DoIf M < a[k] Then M := a[k];Write (M)End.Сколько раз будет выполнен оператор M := a[k] при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)? Поясните свой ответ

const

 n=5;

 m=5;

var

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

 i,j,k,t:integer;

begin

 writeln('Исходная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

   begin

     a[i,j]:=random(8)-4;

     write(a[i,j]:2,' ')

   end;

   writeln

 end;

 for i:=1 to n do

   for j:=1 to m-1 do

     for k:=j+1 to m do

       if a[i,j]>a[i,k] then

       begin

         t:=a[i,j];

         a[i,j]:=a[i,k];

         a[i,k]:=t

       end;

 

 writeln('Полученная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

     write(a[i,j]:2,' ');

   writeln

 end;

end.