Question

vViết chương trình tạo một danh sách mảng có thể chứa tối đa 100 phần tử, rồi nhập số lượng n phần tử vào danh sách vừa tạo, thực hiện tính trung bình cộng các phần tử rồi in kết quả ra màn hình.

Answer 1

program TrungBinhCong;
const
  MAX = 100;
var
  danhSach: array[1..MAX] of integer;
  n, i, tong: integer;
  trungbinh: real;
begin
  write('Nhap so ptu (toi da 100): ');
  readln(n);
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhap giatri ptu thu ', i, ': ');
    readln(danhsach[i]);
    tong := tong + danhsach[i];
  end;
  trungbinh := tong / n;
  writeln('Tbc cua danh sach la: ', trungbinh:0:2);

  readln;
end.

Answer 2

Var a:array[1..100] of integer;

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.