[svt]

дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]
1. найти сумму элементов, значение которых кратно 3 и 5
Помогите решить пожалуйста=) своих мозговых и логических ресурсов увы не хватает ((

[friz]

Код:

sum:=0;
for i:=1  to n do
begin
  if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) THEN sum:=sum+a[i];
end;
showmessage('otvet =' + inttostr(sum));