Question

Khai báo1 mảng có tên DiemTB để lưu điểm trung bình môn tin của một lớp có 45 học sinh

Answer 1

var dtb: array[1..1000] of real;

i,n: integer;

Chương trình:

uses crt;

  var dtb: array[1..1000] of real;

  i,n: integer;

      begin

      clrscr;

   Write ('so luong 45 hoc sinh: ');  readln (n);

   for i:=1 to n do;

 begin;

write ('nhap diem trung binh hoc sinh thu ',i,': ');  readln (a[i]);

end;

   write ('day diem vua nhap: ');

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

readln;

end.

Answer 2

var diemtb:array[1..45]of real;