Сформулируйте массив, содержащий 15 элементов…

Program n1; Uses CRT; Const n=15; Var A: array[1… n] of integer; B: array[1… n] of integer; i,k,max: integer; beginrandomize; clrscr; Writeln ('ishodny massiv'); For i: =1 to n do begin a[i]: =random (100); a[i]: =a[i]-50; write (a[i]: 4); end; writeln; writeln ('polychenny massiv'); max: =0; For i: =1 to n do begin b[i]: =-a[i]; write (b[i]: 4); If a[i]=b[i] then k: =k+1; If (b[i]>0) and (b[i]>max) then max: =b[i]; If (b[i]<0) and (-b[i]>max) then max: =-b[i]; end; writeln; Writeln ('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven=',max); writeln end.