Задание:
Найти сумму элементов массива больше данного числа а
Решение:
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.
Знаете другой ответ?