Составить программу вычисления в массиве A(N) произведения чётных элементов - QBasic

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

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

1. Составить программу вычисления в массиве A(N) произведения чётных элементов. 2. Составить программу вычисления в массиве B(N) минимального среди положительных элементов и его номера. 3. Составить программу вычисления суммы элементов от второго отрицательного и до конца.

Решение задачи: «Составить программу вычисления в массиве A(N) произведения чётных элементов»

textual
Листинг программы
  1. DATA 10
  2. DATA 1, 1, -1, 0, 100, 1, -1, 5, 5, 0
  3.    CLS
  4.    READ n
  5.    FOR i = 1 TO n
  6.       READ a(i)
  7.    NEXT
  8.    FOR i = 1 TO n
  9.       f = f - (a(i) < 0)
  10.       IF f > 1 THEN s = s + a(i)
  11.    NEXT
  12. PRINT s

Объяснение кода листинга программы

  1. DATA 10 - устанавливает размер массива A(N) равным 10
  2. DATA 1, 1, -1, 0, 100, 1, -1, 5, 5, 0 - заполняет массив A(N) данными
  3. CLS - очищает экран
  4. READ n - запрашивает у пользователя размер массива A(N)
  5. FOR i = 1 TO n - начинает цикл по элементам массива A(N) с индексом от 1 до n
  6. READ a(i) - считывает значение i-го элемента массива A(N) в переменную a(i)
  7. NEXT - завершает текущую итерацию цикла
  8. FOR i = 1 TO n - начинает цикл по элементам массива A(N) с индексом от 1 до n
  9. f = f - (a(i) < 0) - проверяет на чётность i-го элемента массива A(N), если он отрицательный, то инвертирует значение переменной f
  10. IF f > 1 THEN s = s + a(i) - если значение переменной f больше 1, то прибавляет i-й элемент массива A(N) к переменной s
  11. NEXT - завершает текущую итерацию цикла
  12. PRINT s - выводит на экран значение переменной s, которое является искомым результатом произведения чётных элементов массива A(N)

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


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

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

11   голосов , оценка 3.909 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы