Luyện thi HSG pascal

                                                        CÂU HỎI VÀ BÀI TẬP
Câu 1: Tại sao mảng là kiểu dữ liệu có cấu trúc?
-   Mảng là kiểu dữ liệu có cấu trúc bởi vì mảng (một chiều, hai chiều hay nhiều chiều) là kiểu có cấu trúc được đề cập tới sớm nhất trong các ngôn ngữ lập trình. Nó được xây dựng từ những kiểu dữ liệu dã có theo quy tắc khuôn dạng do ngôn ngữ lập trình cung cấp. Nó được dùng để chỉ định một nhóm đối tượng cùng một tính chất nào đó. Chẳng hạn, vectơ là một nhóm các số mà mỗi số ta có thể xác định chỉ cần biết chỉ số. Như vậy, để khai báo kiểu mảng phải chỉ ra kiểu dữ liệu chung của các phần tử và kiểu chỉ số.

PROGRAM Bai_tap;
USES    CRT;
Var     A:array[1..100] of integer;
        i,cs,n:integer;
        kt:boolean;
BEGIN
        Clrscr;
        Write('Nhap so luong phan tu cua day : '); Readln(n);
        For i:=1 to n do
                Begin
                        Write('Nhap phan tu thu ',i,' : ');
                        Readln(A[i]);
                End;
        kt:=True;
        cs:=A[2]-A[1];
        For i:=3 to n do
                If (A[i]-A[i-1]) <> cs then
                        Begin
                                kt:=False;
                                Break;
                        End;
        If kt=True then Writeln('Day A la mot cap so cong!')
        Else Writeln('Day A khong phai la mot cap so cong!');
        READLN;
END.

uses crt;
var
a:array [1..100] of integer;
n,i,x,a,b,c:integer;
begin
clrscr;
write('n:= ');readln(n);
for i:=1 to n do 
begin
if a[i] mod 2 =0 then a:=a+1;
if a[i] mod 2 = 1 then b:=b+1;
for x:= 2 to trunc(sqrt(a[i])) do
if a[i] mod x <> 0 then c:=c+1;
end;
writeln('so so chan: ',a);
writeln('so so le: ',b);
writeln('so so ngto: ',c);
readln;
end.

var
s:string[1..100];
i,dem:integer;
begin
write('nhap xau:');readln(s);
for i:=1 to length(s) do begin
case s[i] of 
'1','2','3','4','5','6','7','8','9','0': dem:=dem+1;
end;
end;
writeln('so chu so: ',s);
readln;
end.