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

На языке Pascal. Прошу помогите!

Question

Информатика

Пармен

3 мая, 19:53

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

На языке Pascal. Прошу помогите!

+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.

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

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

На языке Pascal. Прошу помогите!