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

Question

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

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.