Câu 1:

a) Đúng

b) Sai        Sửa: var X:array[5..10] of char;

c) Đúng

d) Sai vì giá trị đầu và giá trị cuối không được là số thực     

         Sửa: for i:=1 to 10 do write('A');

Câu 2:

program tong_S;

uses crt;

var i,s:integer;

begin

       clrscr;

       S:=0;

       for i:=2 to 12 do S:=S+i;

       write('S= ',s);

       readln;

end.

Bài 3:

program bang_cuuchuong2;

uses crt;

var i:byte;

begin

       clrscr;

       for i:=1 to 10 do

              writeln('2 x ',i,'= ',2*i);

       readln;

end.

Bài 4:

program tim_n;

uses crt;

var S,n:integer;

begin

       clrscr;

       n:=0;   S:=0;

       while S<=1000 do

              begin

                     n:=n+1;

                     S:=S+n;

              end;

       write(n= ',n,' va S= ',s);

       readln;

end.

1.
a. Đúng.
b. Sai.
- Sửa: var X: Array[5..10] Of Char.
c. Đúng.
d. Sai.
- Sửa: for i:=1 to 10 do writeln('A');

2.
program phuongt;
uses crt;
  var s, i: integer;
begin
       clrscr;
       s:=0;
       for i:=2 to 12 do s:=s+i;
       write('Tong s = ', s);
       readln
end.

3.
program phuongt;
uses crt;
  var i: integer;
begin
       clrscr;
       writeln('Bang cuu chuong 2:');
       for i:=1 to 10 do write('2 x ', i, ' = ', 2*i);
       readln
end.

4.
program phuongt;
uses crt;
  var n, s: integer;
begin
       clrscr;
       s:=0; n:=1;
       while s<=1000 do
       begin
               s:=s+n;
               n:=n+1;
       end;
       write('So n do la: ', n);
       readln
end.

5.
program phuongt;
uses crt;
  var i, n: integer;
begin
       clrscr;
       write('Nhap bang nhan muon tinh (tu 1 den 9): '); readln(n);
       if (n>0) and (n<10) then for i:=1 to 10 do write(n, ' x ', i, ' = ', n*i)
       else
             write('Khong dung yeu cau de bai');    
       readln
end.

6.

program phuongt;
uses crt;
  var A: array[1..500] of integer;
         n, i, max, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       for i:=1 to n do
       begin
               write('A[', i. '] = '); readln(A[i]);
               s:=s+A[i];
       end;
       max:=A[1];
       for i:=1 to n do if max<A[i] then max:=A[i];
       write('Day so vua nhap la: ');
       for i:=1 to n do write(A[i]:3);
       writeln;
       writeln('So lon nhat cua day so la: ', max);
       write('Tong cac so cua day so la: , s);
       readln
end.

7. 

Thuật toán:
B1: s ← 1; i ← 1.
B2: nếu i<=n thì nếu i mod 2 <>0 thì s ← s+i.
B3: nếu i>n đến B4 ngược lại quay lại B2.
B4: thông báo giá trị và KTTT.
VCT:
program phuongt;
uses crt;
  var s, i, n: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=0;
       for i:=1 to n do if i mod 2 <> 0 then s:=s+i;
       write('S = ', s);
       readln
end.

8.
program phuongt;
uses crt;
  var s, i, n: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=1;
       for i:=1 to n do if i mod 2 = 0 then s:=s*i;
       write('S = ', s);
       readln
end.

9.
program phuongt;
uses crt;
  var A: array[1..10] of real;
         n, i: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       for i:=1 to n do
       begin
              write('Nhap diem cua ban thu ', i, ': '); readln(A[i]);
       end;
       writeln('Diem Tin Hoc cua ', n ', ban hoc sinh la:');
       for i:=1 to n do writeln('Diem Tin Hoc cua ban thu ', i, ' la: ', A[i]);
       readln
end.