Дан массив из пяти чисел, найдите сумму чисел кратных пяти и чётных и произведение...

Question

Дан массив из пяти чисел, найдите сумму чисел кратных пяти и чётных и произведение остальных чисел. Язык паскаль. Помогите !

Answer 1

Const N = 5;

var a: array [1..N] of  integer;
sum, pr: integer;

begin
sum:=0; pr:=1;
for var i:=1 to N do begin 
read(a[i]); 
if (a[i] mod 5=0) and (a[i] mod 2=0) then sum+=a[i] 
else pr*=a[i]
end;
println(sum, pr);
end.