Задание:
Найти сумму элементов массива А (10), значения которых лежат в интервале от 15 до 75.
Решение:
Prorgam z; Var a: array [1… 100] of integer; i,s: integer; BeginRandomize; s: =0; For i: =1 to 10 do begina[i]: =random (100)+1; If (a[i]>=15) then beginIf a[i] <= 75 then begins: =s+a[i]; End; Writeln (s); End.
Знаете другой ответ?