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...

S:=s+n; n:=n+1;

End;

1

Writen(‘tong cac so tu nhien dau tien:’,s);

Readln

End.

Var n, i: integer;

Diem: array[1..50] of real;

Begin

Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);

Writeln(‘Nhap diem cho tung hoc sinh’);

For i := 1 to n do

Begin