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

Question

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

Comments

Мне не очень понятна суть задания.

---

Какого массива? Он задан?

---

одномерного

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.