Напишите Паскаль-программу для решения следующей задачи: есть ряд чисел –3; 11; 12,7. Найдите произведение

pascal

program Решение_задачи;

var

  числа: array[1..3] of real; // создаем массив для хранения чисел

  произведение: real; // переменная для хранения произведения положительных чисел

  сумма: real; // переменная для хранения суммы отрицательных чисел

  количество: integer; // переменная для хранения количества положительных чисел

  i: integer; // счетчик цикла

  

begin

  // Вводим числа с клавиатуры

  writeln("Введите первое число:");

  readln(числа[1]);

  writeln("Введите второе число:");

  readln(числа[2]);

  writeln("Введите третье число:");

  readln(числа[3]);

  

  произведение := 1; // инициализируем произведение единицей

  сумма := 0; // инициализируем сумму нулем

  количество := 0; // инициализируем количество нулем

  

  // Проходим по массиву чисел и находим произведение положительных чисел, сумму отрицательных чисел и количество положительных чисел

  for i := 1 to 3 do

  begin

    if числа[i] > 0 then

    begin

      произведение := произведение * числа[i]; // умножаем текущее число на произведение

      количество := количество + 1; // увеличиваем количество положительных чисел на единицу

    end

    else if числа[i] < 0 then

    begin

      сумма := сумма + числа[i]; // прибавляем текущее число к сумме

    end;

  end;

  

  // Выводим результаты на экран

  writeln("Произведение положительных чисел: ", произведение);

  writeln("Сумма отрицательных чисел: ", сумма);

  writeln("Количество положительных чисел: ", количество);

  

end.