viết chương trình sử dụng lệnh "For .. do" để tính giá trị trung bình của N số nguyên được nhập vào từ bàn phím

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.

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,s:integer;
begin
        clrscr;
        write('nhap so tu nhien can nhap: '); readln(n);
        s:=0;
        for i:=1 to n do
                begin
                        write('nhap so tu nhien thu ',i,': '); readln(a[i]);
                        s:=s+a[i];
                end;
        writeln('TBC cua ',5,' so tu nhien: ',s/n:0:3);
        readln;
end.