Составить программу, которая заполняет массив а [1… 10] случайными целыми числами…

var a: array [1… 10] of integer; min, i: integer; begin min: =10; write ('Исходный массив: '); for i: =1 to 10 do begin a[i]: =random (10); write (a[i], '); if (i mod 2=1) and (a[i] < min) then min: =a[i]; end; writeln; writeln ('Минимальный элемент среди элементов с нечетными индексами: ', min); end.