Дан целочисленный массив из 12 элементов случайных целых чисел принадлежащих интервалу 10; 45 необходимо найти произведение элементов массива, кратных 5

Question

Информатика

Алексаня

10 ноября, 02:08

Дан целочисленный массив из 12 элементов случайных целых чисел принадлежащих интервалу 10; 45 необходимо найти произведение элементов массива, кратных 5

+3

Ответы (1)

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

Евлампия · Answer 1

Program z1; const n = 12; Var a: array [1 ... n] of integer; i, s:integer; Begin randomize; for i:=1 to n do begin a[i]:=random (45) + 10; write (a[i],' ') ; end; s:=1; for i:=1 to n do if (a[i] mod 5 = 0) then s:=s*a[i]; writeln; writeln ('Произведение элементов массива, кратных 5 - ', s) ; End.