I

1/  a.Cú pháp khai báo mảng một chiều.

Var <Tên mảng>: Array [<Chỉ số đầu>..<Chỉ số cuối>] Of <Kiểu dữ liệu>;

      b. Khai báo mảng A:

Var A:array[1..100] of real;

2/ a. Cú pháp khai báo biến kiêu xâu. 

Var <tên biến xâu>: string[độ dài lớn nhất của xâu];

     b. Khai báo xâu S

Var S:string[30];

II Bài Tập

Bài 1

uses crt;

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

i,n,k:integer;

begin

clrscr;

write('nhap n: ');readln(n);

write('nhap k: ');readln(k);

for i:=1 to n do

begin

write('a[',i,']'); readln(a[i]);

end;

for i:=1 to n do if a[i]=k then writeln(i);

readln

end.

Bài 2

uses crt;
var S1,S2:string;
begin
 clrscr;
 write('Nhap xau S1: '); readln(S1);
 write('Nhap xau S2: '); readln(S2);
 writeln('Xau ghep: ',S1+S2);
readln;
end.