Найти сумму a2+a4+a6. Ошибка "illegal qualifier" - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Даны целые числа a1, a2, ..., a20. Найти сумму a2+a4+a6 ... . Оператор цикла с шагом, отличным от 1 и –1, не использовать. Написал следующий код:
program _718;
var a, Sum, i: integer;
begin
Sum:=0;
For i:=1 to 10 do Sum:=Sum+a[i*2];
end.
Выдаёт ошибку "illegal qualifier". Что я делаю не так?

Решение задачи: «Найти сумму 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.

  1. Создается массив a, который содержит 20 целых чисел.
  2. Создаются две переменные: Sum и i.
  3. Переменная Sum инициализируется значением 0.
  4. В цикле от 1 до 20 происходит чтение значений элементов массива a с помощью функции readln().
  5. В цикле от 1 до 10 происходит суммирование элементов массива a, начиная с индекса 1 (первый элемент) с шагом 2 (индекс 2, 4, 6 и т.д.).
  6. Выводится значение переменной sum. Код выдает ошибку illegal qualifier, потому что в строке с объявлением переменной Sum вместо Sum написано _718, что является именем программы, а не переменной.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы