• Строка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.

Ответы 6

  • 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.
    • Автор:

      pierre72
    • 6 лет назад
    • 0
  • Не проходит тест
  • Введите элементы массива: -28246814-7891129Сумма отрицательных элементов массива: 0Количество чётных элементов массива: 0Номер первого положительного элемента массива: 1Значение формулы: 1
  • Помоги пожалуйста
  • Ок , сейчас переделаю
  • var i:integer;M:array[1..10]of integer;A,F:real;B,C:integer;beginwriteln('Введите элементы массива: ');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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years