ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ