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

Question

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

Answer 1

71

vamdick

24 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: