ТутРешу.Ру

Составьте программу вычисления в массиве A

Задание:

Составьте программу вычисления в массиве 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.




Знаете другой ответ?

Отправить свой ответ