СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.Найдите сумму индексов элементов,которые

Изображение текста программы с комментариями: http://bit.ly/2s7XSxv.

program array10;var a: array [1..10] of integer; average: real; total:integer; n: integer;

begintotal:=0;n:=0; randomize; for k:integer:=1 to 10 do begina[k]:= random(1,100);total:= total + a[k];end;average:= total/10;for k:integer:=1 to 10 dobeginif a[k]>average then n:=n+k;if a[k]>average then writeln(\' \', a[k],\'-\',k)else writeln(\' \', a[k]);end;writeln;writeln(\'average = \',average, \' sum_index = \', n )end.