Составить программу, заполняющую массив десятью случайными числами…

program n1; const n=10; var mas: array[1… n] of integer; i: integer; max,min,sum: integer; ar: real; begin for i: =1 to n dobegin mas[i]: =random (20) -10; write (mas[i],'); writeln end; max: =1; for i: =2 to n do if mas[i]>mas[max] then max: =i; writeln; writeln ('Максимаьное значение a[',max,']=',mas[max]); min: =1; for i: =2 to n do if mas[i] комментировать