Cho một mảng gồm n số nguyên dương a1,a2,a3,...,an với (1 <= ai <= 20000) đôi một khác nhau.Phần tử at(1 <= t <= n) được gọi là phần tử trung bình cộng nếu tồn tại ít nhất cặp chỉ số i,j (1 <= i < j <= n) sao cho at = (ai + aj) /2; Đếm xem số lượng phần tử trung bình cộng mảng ban đầu Test: 4 1 2 3 4 in ra 2 giải thích: Có 2 pt trung bình cộng là t = 2,a2 = (a1+a3)/2 t =3,a3 = (a2+a4)/2
1 câu trả lời
uses crt;
var A : array [1 .. 100] of integer;
i, N, d : integer;
begin
clrscr;
write('Nhap N = '); readln(N);
write('Nhap day gom ', N ,' so : ');
d := 0;
for i := 1 to N do read(A[i]);
for i := 1 to N - 2 do
if A[i + 1] = (A[i] + A[i + 2]) / 2
then d := d + 1;
write('So luong = ', d);
readln
end.
Câu hỏi trong lớp
Xem thêm
