Viết chương trình sử dụng mảng T chứa tuổi của học sinh lớp 11B. Yêu cầu nhập tuổi từ bàn phím. (Cần gấp trong 1 tiếng nữa)

Mảng dùng để chứa tuổi của học sinh. Tuổi là kiểu số nguyên.

Program nhapTuoi;

Var t:array[1..10000] of integer;

n,i:integer;

BEGIN

Clrscr;

Write('Nhap so hoc sinh lop 11B'); Readln(n);

For i := 1 to n do Readln(t[i]);

Readln;

END.

dùng byte để lưu số tuổi của các bạn học sinh lớp 11B;

uses crt;
var a:array[1..1000]of byte;i,n:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
    begin
     write('nhap a[',i,']=');readln(a[i]);
    end;
 readln;
end.