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

Question

Информатика

Марина

30 марта, 16:23

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

+3

Ответы (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.