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

Question

Информатика

Леда

3 декабря, 22:34

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

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