Question

Viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên đc nhập từ bàn phím và in ra dãy số nguyên đó

Answer 1

var a:array[1..100] of longint;

n,i,tb: longint;

begin

read(n);

for i:=1 to n do read(a[i]);

s:=0;

for i:=1 to n do s:=s+i;

tb:=0;

tb:= s mod n;

write(tb);

end.