Сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел.…

Program n1; Uses CRT; Const n=15; Var a: array[1… n] of integer; b: array[1… n] of integer; i,min,max: integer; beginFor i: =1 to n do begin a[i]: =random (100); write (a[i]: 3); end; writeln; For i: =1 to n do begin b[i]: =sqr (a[i]); write (b[i]: 5); end; min: =b[1]; max: =a[1]; For i: =1 to n do begin if a[i]>max then max: =a[i]; if b[i]