Question

Задача. Используя цикл While, запишите массив,который находит сумму и произведение нечетных элементов, кратных 3. Паскаль

Answer 1

Можно целиком задание? как формируется массив - рандомом или с клавиатуры, как завершить цикл (например, цифрой 0). 

Answer 2

Для решения данной задачи с использованием цикла While на языке Паскаль можно использовать следующий код:

``` program SumAndProduct;

var arr: array[1..10] of integer; // массив из 10 элементов i, sum, product: integer; // переменные для итерации, хранения суммы и произведения

begin i := 1; // начальное значение счетчика sum := 0; // начальное значение суммы product := 1; // начальное значение произведения

while i <= 10 do // цикл будет выполня