Question

Составьте программу, запрашивающую у пользователя K целых чисел и вычисляющую произведение положительных. Пример работы: Окно вывода Сколько чисел обработать? 5 Введите число 2 Введите число Введите число Введите число Введите число Произведение положительных чисел из 5 составляет 24 памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Сколько чисел обработать?');
  var s:=1;
  loop n do begin
    var k:=ReadInteger('Введите число');
    if k>0 then s*=k
    end;
  Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.

Пример
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63

Answer 2

Вот пример программы на языке Pascal, который запрашивает у пользователя K целых чисел и вычисляет произведение положительных чисел:

pascalCopy code
program ProizvedeniePolozhitelnyh;

var
  K, i, num: Integer;
  product: Integer;
  
begin
  product := 1;
  
  Write('Сколько чисел обработать? ');
  Readln(K);
  
  for i := 1 to K do
  begin
    Write('Введите число: ');
    Readln(num);
    
    if num > 0 then
      product := product * num;
  end;
  
  Writeln('Произведение положительных чисел из ', K, ' составляет ', product);
end.

Программа сначала запрашивает у пользователя количество чисел для обработки (K). Затем она в цикле запрашивает K чисел и проверяет, является ли каждое из них положительным. Если число положительное, оно умножается на текущее значение переменной product, которая изначально равна 1.

По завершении цикла программа выводит результат — произведение положительных чисел из K.