Выдаёт : ошибка времени выполнения: индекс находился вне границ массива. program tro8; var a: array [1..8] of integer; i,s: integer; begin for i: =1 to 10 do a[i]: =random(10); writeln('исходный массив'); for i: =1 to 10 do write (a[i], ' ' ); writeln; s: =0; for i: =1 to 10 do if a[i] mod 2= 1 then s: =s+a[i]; writeln('сумма элементов массива =' ,s); end.