Задание 6 Вариант 2 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 6. Напишите программу вычисления произведения положительных, суммы отрицательных и количества нулевых элементов массива В[1..N]. Проверьте работу программы на заданном...](/reshebniki/informatika/11/WBbosova/images1/sam4/2/6.png "Изображение ответа 6. Напишите программу вычисления произведения положительных, суммы отрицательных и количества нулевых элементов массива В[1..N]. Проверьте работу программы на заданном...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
//randomize;
for i := 1 to n do
begin
readln(b[i]);
//b[i] := random * 20 - 10;
//writeln('b[', i, ']=', b[i])
end;
for i := 1 to n do
begin
if b[i] > 0 then p := p * b[i];
if b[i] < 0 then s := s + b[i];
if b[i] = 0 then k0 := k0 + 1
end;
writeln('p=', p:6:2, ' s=', s:6:2, ' k0=', k0);
end.
Произведение положительных элементов равно: 17463600.00
Сумма отрицательных элементов равна: -338.50
Количество нулевых элементов равно: 1
В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
