Вычислить сумму элементов массива, расположенных после первого положительного элемента - Turbo Pascal (33828)
Формулировка задачи:
В одномерном массиве, состоящем из n вещественных элементов, вычислить
Сумму элементов массива, расположенных после первого положительного элемента.
Решение задачи: «Вычислить сумму элементов массива, расположенных после первого положительного элемента»
textual
Листинг программы
uses crt; var a:array[1..100] of real; i,n:integer; s:real; BEGIN clrscr; repeat write('n = '); read(n); until n>0; for i:=1 to n do a[i]:=random(10+3); for i:=1 to n do write(a[i]:3:2,' '); writeln; s:=0; for i:=1 to n do if a[i]>0 then s:=s+a[i+1]; if s=0 then write('Елемент последнний , или положительного нету...') else write('Сумма = ',s:3:2); readkey; END.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
- Затем объявляются переменные: a - массив из 100 элементов типа real (числа с плавающей точкой), i - переменная типа integer (целое число), n - переменная типа integer, s - переменная типа real (число с плавающей точкой).
- Выводится сообщение
n =
, и считывается значение переменной n. Этот цикл повторяется до тех пор, пока n не станет больше нуля. - Затем заполняется массив a случайными числами в диапазоне от 10 до 100.
- Выводится сообщение для каждого элемента массива a, начиная с 1 и до n.
- Затем начинается цикл, в котором переменной s инициализируется значение 0. Этот цикл будет выполняться для каждого элемента массива a, начиная с 1 и до n.
- Внутри цикла проверяется условие: если a[i] больше 0, то к переменной s прибавляется значение a[i+1].
- Если значение s равно 0, то выводится сообщение
Елемент последний, или положительного нет...
. - Если значение s не равно 0, то выводится сообщение
Сумма =
, и выводится значение переменной s. - В конце кода считывается символ-терминатор из ввода, чтобы завершить чтение.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д