Заполнить одномерный массив (кол-во чисел n <= 15) случайными целыми числами, по…

Program Program1; Vara: array [1… 15] of integer; i,min,Nmin,sum: integer; beginrandomize; writeln ('Массив: '); for i: =1 to 15 dobegina[i]: =random (20) -10; writeln ('a[',i,']=',a[i]); end; sum: =0; Nmin: =1; min: =a[Nmin]; for i: =1 to 15 dobeginsum: =sum+a[i]; if min>a[i] thenbeginmin: =a[i]; Nmin: =i; end; end; writeln; writeln ('Минимальный элемент в массиве: ',min,' его индекс: ',Nmin,' Сумма элементов массива: ',sum); end.