viết chương trình khai báo biến mảng T các số nguyên: sau đó nhập và in ra màng hình giá trị của biến mảng đó
viết chương trình khai báo biến mảng T các số nguyên: sau đó nhập và in ra màng hình giá trị của biến mảng đó
By Remi
theo mình,
uses crt;
var :array [1..500] of integer;
N,i: integer;
Begin
clrscr;
write(‘Nhap so gì đó ‘); readln(n);
for i:=1 to do
begin
write(‘T[‘,i,’]=’); readln(T[i]);
End;
uses crt;
var T:array [1..500] of integer;
n,i: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘T[‘,i,’]=’); readln(T[i]);
end;
write(‘Mang sau khi nhap: ‘);
for i:=1 to n do write(T[i],’ ‘);
readln
End.