В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите произведение всех элементов, меньших 25 (pascal abc)
В массиве из N элементов, заданных случайным образом из промежутка [0;50], найдите произведение всех элементов, меньших 25 (pascal abc)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program ProductLessThan25;
var
arr: array[1..10] of integer; {заменить 10 на необходимое количество элементов массива}
i: integer;
product: integer;
begin
product := 1;
Randomize;
for i := 1 to 10 do {заменить 10 на необходимое количество элементов массива}
if arr[i] < 25 thenbegin
arr[i] := Random(51); {генерация случайного числа от 0 до 50}
product := product * arr[i];
end;
writeln('Массив:');
for i := 1 to 10 do {заменить 10 на необходимое количество элементов массива}
writeln(arr[i]);
writeln('Произведение всех элементов, меньших 25: ', product);
end.