LÀM CỦA CÁC CÂU LỆNH VIỆC VỚI DÃY ĐƯỢC CÁC CÂU THÀNH PHẦN CÓ TRONG KH...

Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);

1

End;

For i : = 1 to n do

Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);

Readln;

End.

Var s,i:integer;

begin

S:= 0;

For i:= 1 to 10 do s:=s+1;