program FindProductOfEvenNumbers; var arr: array[1..10] of integer; product, i: integer; begin product := 1; // Заполнение массива случайными числами for i := 1 to 10 do begin arr[i] := Random(100); // Генерация случайного числа от 0 до 99 end; // Поиск произведения четных чисел for i := 1 to 10 do begin if (arr[i] mod 2 = 0) then begin product := product * arr[i]; end; end; // Вывод результата writeln('Массив:'); for i := 1 to 10 do begin write(arr[i], ' '); end; writeln; writeln('Произведение четных чисел: ', product); end.
Этот код находит произведение всех четных чисел в массиве arr из 10 элементов и выводит его, а также выводит сам массив.
var
arr: array[1..10] of integer;
product, i: integer;
begin
product := 1;
// Заполнение массива случайными числами
for i := 1 to 10 do
begin
arr[i] := Random(100); // Генерация случайного числа от 0 до 99
end;
// Поиск произведения четных чисел
for i := 1 to 10 do
begin
if (arr[i] mod 2 = 0) then
begin
product := product * arr[i];
end;
end;
// Вывод результата
writeln('Массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;
writeln('Произведение четных чисел: ', product);
end.
Этот код находит произведение всех четных чисел в массиве arr из 10 элементов и выводит его, а также выводит сам массив.