
Запишите, что будет напечатано в результате выполнения программы. const a: array [1..8] of
integer = (-4, 10,-7,0, 3, -2,-5,9); var i,s:integer; begin s:=1; for i:=1 to 8 do if a[i]<0 then s:=s*a[i]; write (s); end.

Ответы на вопрос

Это получается произведение всех положительных элементов массива.
Ответ: 280



Программа вычисляет произведение отрицательных элементов массива a
и выводит результат. Давайте пошагово выполним код:
Исходный массив
a
:scss(-4, 10, -7, 0, 3, -2, -5, 9)
Начальное значение переменной
s
установлено равным 1.В цикле
for
проходим по каждому элементу массиваa
:a.
i = 1
:-4
отрицательное, умножаемs
на-4
, теперьs = -4
. b.i = 2
:10
положительное, ничего не делаем,s
остается-4
. c.i = 3
:-7
отрицательное, умножаемs
на-7
, теперьs = 28
. d.i = 4
:0
не отрицательное, ничего не делаем,s
остается28
. e.i = 5
:3
положительное, ничего не делаем,s
остается28
. f.i = 6
:-2
отрицательное, умножаемs
на-2
, теперьs = -56
. g.i = 7
:-5
отрицательное, умножаемs
на-5
, теперьs = 280
. h.i = 8
:9
положительное, ничего не делаем,s
остается280
.Выводим значение переменной
s
, которое равно280
.
Итак, результат выполнения программы будет:
280


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili