Задан массив из n элементов. вычислить сумму тех элементов, которые кратны 5.

Program t1; var a: array [1..1000] of integer; n, i: byte; s: longint; begin readln (n); for i: = 1 to n do begin readln (a[i]); if a[i] mod 5 = 0 then s: =s+a[i]; end; write (s); readln; end.

По сути 2
2<4 2+1=3
3<4 3+1=4
4 не < 4

Время t=F/v   скорость v=F/t       файл F=t*v
файл F=4096 байт =4*1024*8 бит=2^15 бит
 v=512 бит/с =2^9 бит/с  
 t-?
     t=2^15 : 2^9=2^6 c=64 c
v=2048 бит/с =2^11 бит/с
t=2^6 c
F=2^11*2^6=2^17 бит =2^4 Кбайта = 16 Кбайт
ответ 16

Молоко в кувшине
Вода в стакане
Лимонад в бутылке
Квас в банке
Но... В лимонаде и квасе я не очень уверена