Найти сумму элементов массива больше данного числа а

Question

Информатика

Сократ

21 декабря, 06:11

Найти сумму элементов массива больше данного числа а

+1

Ответы (1)

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

Мишута · Answer 1

Var b:array[1 ... 100] of integer;

i, sum, a:integer;

Begin

read (a) ;

for i: = 1 to 100 do begin

b[i]: = random (100) ;

if b[i] < a then

sum: = sum + b[i];

end;

writeln (sum) ;

End.