Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста 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.
For i:= 1 to 8 надо или a: array [1..10] of integer;
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
