viết chương trình nhập điểm kiểm tra 1 tiết học kì môn tin cho N học sinh và in trên màn hình với N và điểm kiểm tra được nhập từ bàn phím.
(sử dụng mảng)
Var i,n:integer;
A:array[ 1 .. 100] of integer;
Begin
Clrscr;
Write (' Nhap N');Readln(n);
For i:= 1 to n do
begin
Writeln( ' A[',i,']='); Readln ( A);
end;
Readln
End.
Var i,n:integer;
A:array[ 1 .. 100] of integer;
Begin
Clrscr;
Write (' Nhap N');Readln(n);
For i:= 1 to n do
begin
Writeln( ' A[',i,']='); Readln ( A);
end;
Readln
End.