. Дан массив состоящ из 15 целых чисел, заполненых случ. Образом в промежутке от -10…

Program new; var a: array[1… 15] of integer; max,m,i: integer; begin randomize; for i=1 to 15 doa[i]: =random (21) -10end; max: =-10; for i=1 to 15 doif a[i] > max thenbeginm: =i; max: =a[i]end; for i=1 to m-1 doa[i]: =0; end; end.