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

Question

Информатика

Аникитич

25 апреля, 03:24

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

+5

Ответы (1)

Знаете ответ?

Еняха · 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.