mình cần nhập n pt và các pt để in ra màn hình, giúp mình với.
Bạn xem xem mình làm thế này có đúng không ?
Code:
Uses crt;
Var
a:array[1..100] of longint;
i,n:longint;
BEGIN
Clrscr;
Write('Nhap so phan tu:');
Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']:');
Readln(a[i]);
End;
For i:=1 to n do write(a[i]:5);
Readln;
END.
Bookmarks