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]);

End;

For i : = 1 to n do

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

1

Readln;

End.

Var n,i: integer;

S,ptmax, ptmin: real;

A: array [1..100] of real;

Begin