Var
n, sum, i, a: integer;
begin
read(n);
sum = 0;
for i := 1 to n do
begin
read(a);
if (a mod 5 = 0) then
sum := sum + a;
end;
write(sum);
end.
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=50:620-190=430 записей.
Количество просмотров >300 и количество просмотров <=800 и кол-во покупок<=20: 430-170=260 записей
ответ:260
река, рука, раз, Кар, стук, куст,, сера,, уста,
Var a,b,y: integer;
begin
readln(a, b);
if a < b then y:=b-a;
if a>=b then y:=a-b;
writeln(y);
end.