* mk không hiểu đề lắm, nếu lỡ mk viết ct sai thì nhớ nói để mk sửa nha*

uses crt;

var diemtin: array [1..10] of real;

i:integer;

begin

clrscr;

diemtin[1]:=5;

diemtin[10]:=5;

for i:=2 to 9 do

begin

write('nhap diem tin thu ',i,': '); readln(diemtin[i]);

end;

write('diem tin ban vua nhap la: ');

for i:=1 to 10 do

write(diemtin[i]:5);

readln;

end.

uses crt;

var A : array [1 .. 10] of integer;

i : integer;

begin

clrscr;

A[1] := 5; A[10] := 5;

for i := 2 to 9 do

    begin

        write('Nhap diem tin thu ', i ,' : ');

        readln(A[i]);

    end;

write('Mang diem tin : ');

for i := 1 to 10 do write(A[i], ' ');

readln

end.