Строка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.
193
265
Ответы на вопрос:
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.
Популярно: Информатика
-
bzl0095619.03.2020 06:34
-
lada4828.09.2022 22:33
-
vvvvsidorina23.02.2021 15:44
-
opd2316.01.2021 11:21
-
привет88822.03.2023 20:49
-
liedieuse20.08.2022 16:23
-
Пумба13208.12.2022 16:54
-
chesht29.04.2022 20:59
-
Djrktxf07.05.2020 23:32
-
DAYN777DEBIL01.10.2022 20:40