116
Объяснение:
d = 100
для k от 5 до 12 выполнить
Действия в цикле:
1) d = d - 6
2) d = d + 8
Вывод d
Цикл выполнится 8 раз
количество повторов в цикле равно конечное значение (12) переменной счётчика (k) минус начальное значение (5) переменной счётчика (k) плюс 1
количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8
В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.
В сумме эти действия () увеличивают переменную d на 2.
Следовательно за весь цикл переменная d увеличится на 2 * 8.
Т.к. в начале программы d = 100, то
d = 100 + 2 * 8 = 100 + 16 = 116
var
mas: array[0..19]of integer;
a, b, c, e: integer;
begin
for a := 0 to 19 do mas[a] := random(100) - 50;
//заполняем массив
for a := 0 to 19 do if mas[a] < 0 then b := b + 1;
//количество отрицательных элементов
for a := 0 to 19 do if mas[a] mod 2 = 0 then c := c + mas[a];
//сумму четных элементов
for a := 0 to 19 do
case mas[a] of
1..20: e := e + mas[a];
end;
//произведение элементов из интервала 1;20
write(b, ' ', c, ' ', e);
end.
пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов