Составьте программу вычисления в массиве a(n) произведения четных элементов.

var      a: array [1..100] of integer;       i, p, n: integer; begin      p : = 1;       read(n);             for i : = 1 to n do       begin              read(a[i]);               if a[i] mod 2 = 0 then                       p : = p * a[i];       end;             writeln(p); end.

program csdnciuo;

uses crt;

'var a: array [1..100] of integer;

        i,p,n: integer;

begin

clrscr;

readln(n);

for i: =1 to n do

readln(a[i]);

p: =1;

for i: =1 to n do

if a[i] mod 2 =0 then p: =p*a[i];

writeln(p);

readln;

end.

python 3

y = int( #ввод переменной y

y -= 1 #уменьшение переменной на 1

print(y) #вывод переменной y

или

y = int( #ввод переменной y

print(y - 1) #вывод переменной y уменьшенной на 1

c++

#include < iostream>

using
namespace std;

int main(){

    int y;

    cin > > y; #ввод переменной y

    y --; #уменьшение переменной на 1

    cout < < y; #вывод переменной y

    return 0;

}

или

#include < iostream>

using namespace std;

int main(){

    int y;

    cin > > y; #ввод переменной y

    cout < < y - 1; #вывод переменной y уменьшенной на 1

 
  return 0;

}

                      x   y1.(101,101)       (5, 5) 2.(1000,1000)   (8, 8) 3.(1001,100)     (9, 4) 4.(1011,1110)   (11, 14) 5.(1100,110)     (12, 6) 6.(1100,111)     (12, 7) 7.(1011,111)     (11, 7) 8.(1011,10)       (11, 2) 9.(1001,10)       (9, 2) 10.(1001,11)   (9, 3) 11.(1010,11)   (10, 3) 12.(1010,100)   (10, 4) 13.(111,100)     (7, 4) 14.(111,10)       (7, 2) график во влажении. не  знаю как их плавной линией соединить, сильно они разбросаны.