Задание:
Составьте программу вычисления в массиве A (N) произведения четных элементов.
Решение:
program csdnciuo; uses crt; 'var a: array [1… 100] of integer; i,p,n: integer; beginclrscr; readln (n); for i: =1 to n doreadln (a[i]); p: =1; for i: =1 to n doif a[i] mod 2=0 then p: =p*a[i]; writeln (p); readln; end.
Знаете другой ответ?