Question

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

Answer 1

Program pr;
uses crt;
Var a,k,k1:integer;
Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a<>0) and (k1<1000) do
Begin
if (a<0) and (a mod 2=0) and (abs(a)<=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.

Answer 2

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var a:=SeqRandom(ReadInteger('n='),-20,20)
    .Select(i->real(i)).ToArray;
  a.Println;
  var b:=a[0]*a.Skip(1).Where(x->x>0).Aggregate(1.0,(p,x)->p*x);
  Writeln(b);
end.

Тестовое решение:
n= 15
14 17 5 -1 9 -18 2 3 -20 5 -10 0 4 -1 -8
1285200

Пояснения по каждому оператору
1. Запрашивается количество элементов в последовательности n, генерируется последовательность из n целых чисел в диапазоне от -20 до 20, затем элементы последовательности преобразуются в вещественное представление и образуют динамический массив а.
2. Элементы массива а выводятся на экран.
3. Первый элемент массива умножается на произведение остальных положительных элементов и результат присваивается переменной b.
4. Значение переменной b выводится на экран.
В целях небольшого упрощения предполагается, что n>1 и что среди элементов массива, за исключением первого, имеется хотя бы один положительный элемент. Это связано с тем, что в задании отсутствует описание действий в случае, если вышеописанное предположение окажется неверным.

Переход к вещественному представлению чисел связан с обходом переполнения разрядной сетки при целочисленном умножении для больших значений n.

Answer 3

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

public class ProductOfPositiveNumbers {
    public static void main(String[] args) {
        int[] numbers = {1, 2, 3, 4, 5}; // Здесь можно изменить последовательность чисел

int product = 1;
        for (int i = 0; i < numbers.length; i++) {
            if (numbers[i] > 0) {
                product *= numbers[i];
            }
        }

System.out.println("Произведение первого числа и всех положительных чисел: " + product);
    }
}

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

Примечание: В приведенном примере используется фиксированный массив `numbers` для наглядности. Вы можете изменить его на свою последовательность чисел, чтобы проверить программу на других значениях.

Источники: -(https://www.example.com)