Question

viết chương trình gồm 6 phần tử tử các phần tử thử là điểm trung bình môn tin : a Tính tổng điểm trung bình b tính điểm trung bình của dãy số số

Answer 1

uses crt;

var a:array[1..6]of integer;

i,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('Nhap diem cua ban thu ',i,':'); readln(a[i]);

end;

t:=0;

for i:=1 to 6 do 

  t:=t+a[i];

writeln('Tong diem trung binh la: ',t);

writeln('Diem trung binh cua day la: ',t/6:4:2);

readln;

end.