Câu 1 a) nhập giá trị cho 10 phần tử đầu tiên của mảng DiemTB b) nhập giá trị cho các phần tử từ thứ 5 đến thứ 10 của mảng Lop

Câu 1 :

For i := 1 to 10 do

    begin

        write('Nhap DTB thu ', i ,' : ');

        readln(DiemTB[i]);

    end;

Câu 2 :

For i := 5 to 10 do

    begin

        write('Nhap gia tri thu ', i ,' : ');

        readln(Loop[i]);

    end;

a)

var DiemTB: array [1..10] of real;
    i: integer;
begin
    for i:=1 to 10 do
        readln(DiemTB[i]);
    readln
end.

b)

var Lop: array [1..10] of real;
    i: integer;
begin
    for i:=5 to 10 do
        readln(Lop[i]);
    readln
end.