Thành phố X đang diễn ra một sự kiện lớn, ở đó có n người tham gia. Trong thời gian sự kiện, tất cả những người tham dự sẽ đi chào hỏi, làm quen với những người còn lại. Người thứ i có mức độ vui vẻ là H[i] ( i: 1 -> n ). Nếu người thứ i mà bắt tay với người thứ j thì sẽ tạo ra độ vui vẻ là H[i] * H[j]. Ban tổ chức muốn tính tổng độ vui vẻ khi tất cả mọi người đã bắt tay nhau. INPUT: - Dòng thứ nhất ghi số nguyên dương N ( N < 30000 ). - Dòng thứ hai ghi N số nguyên dương H[i]. ( H[i] < 30000 ). OUTPUT: Ghi ra một số nguyên là tổng độ vui vẻ khi tất cả mọi người đã bắt tay nhau. Ví dụ input 3 1 3 2 output 11
1 câu trả lời
var a:array[1..10000] of longint;
i,n,t,j:longint;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
t:=t+a[i]*a[j];
write(t);
readln;
end.
Câu hỏi trong lớp
Xem thêm