Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста 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:=...
Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста
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;
ГостьИзмените все числа 10 на 8
Не нашли ответ?
Похожие вопросы