В произвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15)…

Uses crt; const n=12; var a: array[1… n] of integer; i,k,max: integer; beginrandomize; max: =-5; for i: =1 to n dobegina[i]: =random (20) -5; writeln (a[i]); if a[i]>max thenbegink: =i; max: =a[i]; end; end; writeln; writeln (max); writeln (k); end.