Tháng ngày em mạnh mẽ đâu rồi, cho phép em chỉ buồn hôm nay ...

youtube.com/@butaumc

var n,i,d,num,j:longint; a:array[0..100000] of longint;
begin
readln(n);
a[0]:=0;
for i:=1 to n do
begin
read(num);
a[i]:=a[i-1]+num;
end;
d:=0;
for i:=1 to n do
for j:=0 to i-1 do
if ((a[i]-a[j]) <>0) and ((a[i]-a[j]) mod n =0) then inc(d);
write(d);
end.

Giáo Viên Tin Học Trường TH Nguyễn Du

Mình thật ra là https://lqdoj.edu.vn/user/kavennguyen2014 .Hehe!

Thảo Nhiên - HK17