Question

Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста 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.

Answer 1

Измените все числа 10 на 8

Answer 2

For i:= 1 to 8 надо или
a: array [1..10] of integer;