Строка8 Ошибка времени выполнения: Индекс находился вне границ массива. Как исправить var...

Question

Строка8 Ошибка времени выполнения: Индекс находился вне границ массива. Как исправить
var i:integer;
M:array[1..10]of integer;
A,F:real;
B,C:integer;
begin

writeln('Введите элементы массива: ');
readln(M[i]); //основной массив
A:=0; //сумма от.элементов
if M[i] < 0 then A:=A+M[i];
writeln('Сумма отрицательных элементов массива: ',A);
B:=0; //кол-во чётных элементов массива
if M[i] mod 2 = 0 then B:=B+1;
writeln('Количество чётных элементов массива: ',B);
i:=1;
if(M[i]>0)then
i:=i+1;
C:=i;
writeln('Номер первого положительного элемента массива: ',C);
F:=C+((A+B)/(10-C+A));
writeln('Значение формулы: ',F);
end.

Comments

Сейчас проверим

Answer 1

Var i:integer;M:array[1..10]of integer;A,F:real;B,C:integer;begin
writeln('Введите элементы массива: ');for i:=1 to 10 doreadln(M[i]); //основной массивA:=0; //сумма от.элементовif M[i] < 0 then A:=A+M[i];writeln('Сумма отрицательных элементов массива: ',A);B:=0; //кол-во чётных элементов массиваif M[i] mod 2 = 0 then B:=B+1;writeln('Количество чётных элементов массива: ',B);i:=1;if(M[i]>0)theni:=i+1; C:=i;writeln('Номер первого положительного элемента массива: ',C);F:=C+((A+B)/(10-C+A));writeln('Значение формулы: ',F);end.

Comments

var i:integer;
M:array[1..10]of integer;
A,F:real;
B,C:integer;
begin

writeln('Введите элементы массива: ');
for i:=1 to 10 do
readln(M[i]); //основной массив
A:=0; //сумма от.элементов

---

if M[i] < 0 then A:=A+M[i];
writeln('Сумма отрицательных элементов массива: ',A);
B:=0; //кол-во чётных элементов массива
if M[i] mod 2 = 0 then B:=B+1;
writeln('Количество чётных элементов массива: ',B);
i:=1;
if(M[i]>0)then
i:=i+1;
C:=i;
writeln('Номер первого положительного элемента массива: ',C);
F:=C+((A+B)/(10-C+A));
writeln('Значение формулы: ',F);
end.

---

Не проходит тест

---

Введите элементы массива:
-28
2
4
6
8
14
-7
89
11
29
Сумма отрицательных элементов массива: 0
Количество чётных элементов массива: 0
Номер первого положительного элемента массива: 1
Значение формулы: 1

---

Помоги пожалуйста

---

Ок , сейчас переделаю