В одномерном массиве С (15) определить произведение и количество элементов, которые равны 30

Question

Информатика

Альпина

2 декабря, 05:26

В одномерном массиве С (15) определить произведение и количество элементов, которые равны 30

+1

Ответы (1)

Знаете ответ на вопрос?

Брендолин · Answer 1

Код (Pascal)

var

c: array[1 ... 15] of integer;

i, k: integer;

pr: longint;

begin

for i:=1 to 15 do

read (c[i]) ;

pr:=1;

k:=0;

for i:=1 to 15 do

if c[i]=30 then

begin

pr:=pr*3;

k:=k+1;

end;

if k=0 then pr:=0;

write (pr) ;

for i : = 1 to k do write (0) ;

writeln (' ', k) ;

end.