Ребят помогите пожалуйста решить задачу по Паскалю. Дан целочисленный массив из 30...

Question

Ребят помогите пожалуйста решить задачу по Паскалю.
Дан целочисленный массив из 30 элементов,элементы массива могут принимать значения от 0 до 100.Напишите эффективную программу которая позволит найти и вывести на печать сумму элементов делющихся на 5 без остатка.Известно,что в массиве есть хотябы один элемент делящийся на 5 без остатка

Answer 1

Var n, i, a, sum: Integer;
Begin
   sum := 0;
   readln(n);
   for i := 1 to n do begin
      read(a);
      if a mod 5=0 then sum := sum + a;
   end;
   writeln(sum);
End.