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

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.

1) E1A0(16) = 1110 0001 1010 0000(2) 
количество единиц = 6

2) 11001011(2) = 128+64+8+2+1 = 203(10)
11111000(2) = 128+64+32+16+8 = 248(10)
11011011(2) = 128+64+16+8+2+1 = 219(10)
10011111(2) = 128+16+8+4+2+1 = 159
11100100(2) = 128+64+32+4 = 228(10)
D4(16)+20(8) = 13*16+4 + 2*8 = 212+16 = 228(10)
Только одно число больше 228(10):
  это 11111000(2) = 128+64+32+16+8 = 248(10)

3) 11011100(2) = 128+64+16+8+4 = 220(10)
DF(16) = 13*16+15 = 208+15 = 223(10)
Количество чисел, удовлетворяющих неравенству - два (221 и 222).

1) E1A0(16) = 1110 0001 1010 0000(2) 
количество единиц = 6

2) 11001011(2) = 128+64+8+2+1 = 203(10)
11111000(2) = 128+64+32+16+8 = 248(10)
11011011(2) = 128+64+16+8+2+1 = 219(10)
10011111(2) = 128+16+8+4+2+1 = 159
11100100(2) = 128+64+32+4 = 228(10)
D4(16)+20(8) = 13*16+4 + 2*8 = 212+16 = 228(10)
Только одно число больше 228(10):
  это 11111000(2) = 128+64+32+16+8 = 248(10)

3) 11011100(2) = 128+64+16+8+4 = 220(10)
DF(16) = 13*16+15 = 208+15 = 223(10)
Количество чисел, удовлетворяющих неравенству - два (221 и 222).