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.