Написать программу которая заполняет масив из - 10; 20 и находит сумму кратных 5

Question

Информатика

Маримьяна

2 октября, 10:28

Написать программу которая заполняет масив из - 10; 20 и находит сумму кратных 5

+1

Ответы (1)

Знаете ответ?

Вильгельм · Answer 1

Var i, summa, x, y:integer; arr: array [-10 ... 20] of integer; begin randomize; x:=0; for i:=-10 to 20 do begin arr[i]:=random (100) ; if arr[i] mod 5=0 then x:=x+arr[i]; end; writeln (x) ; end.