Найдите сумму элементов массива, который делится на 5 и 8 одновременно

Ответы:

uses crt,

const n=10,

var a:array[1..n] of integer,

i,s:integer,

begin

randomize,

for i:=1 to n do

begin

a[i]:=random(1000),

write(a[i], ),

end,

writeln,

for i:=1 to n do

if (a[i] mod 5=0) and (a[i] mod 8=0) then s:=s+a[i],

writeln(s),

end.