Выполнить задание по фотографии .

Program lab3;const n=10;                   {количество элементов в массиве}
var   A:array [1..n] of real;          {объявление массива А}   i:byte;                                  {переменная для циклов}   b:boolean;                           {идентификатор роста}begin     writeln('vvedite tselie chisla matrici A[',n,',',n,']');     for i:=1 to n do begin                  {циклвводавмассив}         write('A[',i,'] = ');         readln(A[i]);     end;     writeln;     writeln('matraca imeet vid: ');     for i:=1 to n do begin                  {циклвыводамассива}         write(A[i]:3:3,'  ');        end;     writeln;     b := true;     for i:=1 to n-1 do               {цикл определения роста}          if (A[i] > A[i+1]) then begin  {если текущий больше следующего}             b := false;                                     {значит масив невозростающий}             break;          end;     if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''')     else writeln('Masiv A - ne vozrostaushaya posledovatelnost''');     readln;

program massiv;

const Sz = 100; // Размер массива

var

 a: array [1..Sz] of integer;

 i: integer;

 max: integer;

 counter: integer;

 

begin

 max:=0;

 counter:=0;

 for i:=1 to Sz do begin

   a[i] := random(26) + 10;

   if a[i] > max then begin

       max := a[i];

       end;

   end;

   writeln('Элементы массива: ');

 for i:=1 to Sz do begin

   write(a[i],' ');

   if a[i] = max then begin

       counter := counter + 1;

       end;

   end;

   writeln('');

   writeln('Максимальный элемент: ', max);

   writeln('Кол-во таких элементов ', counter);

end.

Объяснение: