Mình xin đề nghị cách sau:
Program mang;
uses crt;
var A:array[1..100] of integer;
i,n,Tg:integer;
Begin
clrscr;
Write('Nhap so luong phan tu cua mang, n= ');
readln(n);
for...
Type: Posts; User: kengumuoiTH; Keyword(s):
Mình xin đề nghị cách sau:
Program mang;
uses crt;
var A:array[1..100] of integer;
i,n,Tg:integer;
Begin
clrscr;
Write('Nhap so luong phan tu cua mang, n= ');
readln(n);
for...
xin chào tất cả mọi người trên diễn đàn tin học!
Tôi tên là: Bùi Sĩ Tuấn. SN:20/30/1990
Rất vui khi được làm quen với các bạn!
Mong nhận được nhiều sự giúpddowxx từ các bạn