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

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

6. Напишите программу вычисления произведения ненулевых элементов массива. Проверьте работу программы на заданном массиве А = {7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}.

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

program s4_v1_6;

var

a: array[0..10] of real;

i: integer;

p: real;

begin

p := 1;

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

for i := 0 to 10 do

begin

read(a[i]);

if a[i] 0 then p := p * a[i];

end;

writeln(taskp=task, p);

end.

Произведение ненулевых элементов равно: 718641000