Question

Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. С помощью Паскаля пожалуйста

Answer 1

Uses crt;
const n=15;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then
write(a[i]:3);
end.....

Answer 2

Конечно, вот решение задачи на языке Pascal:

arduinoCopy code
program PositiveEvenProduct;

var
  arr: array[1..10] of integer;
  i, product: integer;
  
begin
  // заполнение массива
  for i := 1 to 10 do
  begin
    write('Введите элемент массива №', i, ': ');
    readln(arr[i]);
  end;
  
  // вычисление произведения положительных четных элементов
  product := 1;
  for i := 1 to 10 do
  begin
    if (arr[i] > 0) and (arr[i] mod 2 = 0) then
      product := product * arr[i];
  end;
  
  // вывод результата на экран
  writeln('Произведение положительных четных элементов массива: ', product);
  
  readln; // ожидание ввода пользователем
end.

Эта программа сначала запрашивает у пользователя ввод 10 целочисленных элементов и сохраняет их в массиве arr. Затем программа вычисляет произведение всех положительных четных элементов этого массива и выводит его на экран.