Cách 1: 

- Đưa con trỏ đến nơi cần tạo bảng.

- Nhấn vào dải lệnh insert - table- kéo thả 4 hàng( dòng) 9 cột.

Cách 2:

- Đưa con trỏ đến nơi cần tạo bảng.

- Nhấn vào dải lệnh insert - table- insert table.

- Nhấp 9 vào ô  number of columns và 5 vào ô number of rows.

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

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

max:=a[1];

for i:=2 to n do

if max < a[i] then max:=a[i]

write('So lon nhat trong day la ',max);

Readln

End.

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

i,x:integer;

s:longint;

Begin

Write('x = ');readln(x);

For i:=1 to x do

Begin

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

if a[i] mod 2 = 0 then s:=s+a[i];

End;

writeln('Tong cac so chia het cho 2 la ',s);

write('Cac so vua nhap la ');

for i:=1 to x do write(a[i]:5);

Readln

End.

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

i,n,d:integer;

Begin

For i:=1 to 20 do

Begin

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

if a[i] = 3 then d:=d+1;

End;

Write('Co ',d,' chu so 3');

Readln

End.

REPEAT 18[REPEAT 6[FD n Rt 60]RT 20

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.

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.

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.