Найти сумму a2+a4+a6. Ошибка "illegal qualifier" - Free Pascal
Формулировка задачи:
Даны целые числа a1, a2, ..., a20. Найти сумму a2+a4+a6 ... . Оператор цикла с шагом, отличным от 1 и –1, не использовать.
Написал следующий код:
Выдаёт ошибку "illegal qualifier". Что я делаю не так?
program _718; var a, Sum, i: integer; begin Sum:=0; For i:=1 to 10 do Sum:=Sum+a[i*2]; end.
Решение задачи: «Найти сумму a2+a4+a6. Ошибка "illegal qualifier"»
textual
Листинг программы
program _718; var a : array[1 .. 20] of integer; Sum, i: integer; begin Sum:=0; For i:=1 to 20 do begin write('a[',i:2,'] = '); readln(a[i]); end; For i:=1 to 10 do Sum:=Sum+a[i*2]; writeln('sum = ', sum); end.
Объяснение кода листинга программы
В этом коде используется язык программирования Free Pascal.
- Создается массив a, который содержит 20 целых чисел.
- Создаются две переменные: Sum и i.
- Переменная Sum инициализируется значением 0.
- В цикле от 1 до 20 происходит чтение значений элементов массива a с помощью функции readln().
- В цикле от 1 до 10 происходит суммирование элементов массива a, начиная с индекса 1 (первый элемент) с шагом 2 (индекс 2, 4, 6 и т.д.).
- Выводится значение переменной sum.
Код выдает ошибку
illegal qualifier
, потому что в строке с объявлением переменной Sum вместоSum
написано_718
, что является именем программы, а не переменной.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д