Сотсавьте программу которая заполнит массив a[1…

Program Program1; Vari,min,max,nmin,nmax: integer; a: array [1… 10] of integer; beginrandomize; writeln ('Исходный массив: '); for i: =1 to 10 dobegina[i]: =random (100)+1; writeln ('a[',i,']=',a[i]); end; nmin: =1; min: =a[nmin]; nmax: =1; max: =a[nmax]; for i: =1 to 10 dobeginif a[i]>max thenbeginnmax: =i; max: =a[i]; end; if a[i] комментировать