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

Строка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] lt; 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]gt;0)then
i:=i+1;
C:=i;
writeln('Номер первого положительного элемента массива: ',C);
F:=C+((A+B)/(10-C+A));
writeln('Значение формулы: ',F);
end.

Кристина 2019-08-20 00:50:14

На данный момент проверим