Вычислите произведение элементов массива значения которых больше 5, но меньше 10

на паскале

Question

Информатика

Катеринка

12 июня, 11:48

Вычислите произведение элементов массива значения которых больше 5, но меньше 10

на паскале

+3

Ответы (1)

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

Федорка · Answer 1

Const

n = 10;

var

a: array[1 ... n] of integer;

j, s: integer;

begin

s : = 0;

for j : = 1 to n do

begin

read (a[j]) ;

if a[j] > 5 then inc (s, a[j]) ;

end;

writeln (s) ;

readln;

end.

Вычислите произведение элементов массива значения которых больше 5, но меньше 10на паскале

Вычислите произведение элементов массива значения которых больше 5, но меньше 10

на паскале