Задание 6 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

6. Напишите программу вычисления произведения положительных, суммы отрицательных и количества нулевых элементов массива В[1..N]. Проверьте работу программы на заданном массиве В = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Произведение положительных элементов равно:...........

Сумма отрицательных элементов равна:..................

Количество нулевых элементов равно:....................

program s4_v2_6;

const

n = 11;

var

b: array[1..n] of real;

i, k0: integer;

s, p: real;

begin

s := 0; k0 := 0; p := 1;

writeln(taskввод массиваtask);

//randomize;

for i := 1 to n do

begin

readln(b[i]);

//b[i] := random * 20 - 10;

//writeln(taskb[task, i, task]=task, b[i])

end;

for i := 1 to n do

begin

if b[i] > 0 then p := p * b[i];

if b[i]

if b[i] = 0 then k0 := k0 + 1

end;

writeln(taskp=task, p:6:2, task s=task, s:6:2, task k0=task, k0);

end.

Произведение положительных элементов равно: 17463600.00

Сумма отрицательных элементов равна: -338.50

Количество нулевых элементов равно: 1

В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.