Задание 6 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
for i := 0 to 10 do
begin
read(a[i]);
if a[i] < > 0 then p := p * a[i];
end;
writeln('p=', p);
end.
Произведение ненулевых элементов равно: 718641000
Похожие решебники
Популярные решебники 11 класс Все решебники
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением