a)

program ct;

uses crt;

var i,n,tong:integer; tbc:real;

A:array[1..100[ of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

tong:=0;

for i:=1 to n do

begin

tong:=tong+A[i];

tbc:=tong/n;

end;

writeln('trung binh cong la:',tbc:10;2)

readln

end.

b) 

- tên chương trình ko được cách

- sao câu program thiếu uses crt;

- biến mảng từ 1 đến 100 chỉ có 2 dấu chấm, sao từ integer ko có ; sửa a:array[1..100] of integer;

- chổ for sau i: phải là = sửa for i:=1 to n do

-sau câu lặp for thiếu End;

-chỗ tbc:=tong/n phải có ; cuối câu

-end cuối là dấu .

c)

cho n=3

a[1]=3

a[2]=2

a[3]=1

có 3 vòng lặp

+lần 1: s=0+a[1]=0+3=3

+lần 2: s=3+a[2]=3+2=5

+lần 3: s=5+a[3]=5+1=6

vậy lấy giá trị cuối của s=6

tbc=6/3=2

mình có chạy chương trình bạn xem.

Program tinhtrungbinh;
Var a: array[1..100] of integer;
i, n, tong: integer;
tbc: real;
Begin
Write('Nhap vao so phan tu cua mang n= (<=100) :'); readln(n);
Write('Nhap so nguyen: ');
For i:=1 to n do
Begin write('a[',i,']:'); readln(a[i]); end;
Tong:=0; For i:=1 to n do tong:=tong+a[i]; tbc:=tong/n;
Writeln('Trung bình cong cua mang la:' , tbc:10:2);
Readln;
End.