HELP
Sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. In ra mảng
HELP Sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. In ra mảng
By aihong
By aihong
HELP
Sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. In ra mảng
Uses Crt;
Var a:array[1..5000] of integer;
i,n:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N = ‘); Readln(n);
For i:= 1 to n do begin
Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
Writeln(‘Day so duoc ghi la: ‘);
For i:= 1 to n do
Begin
Write(a[i]:3);
End;
Readln
End.
*NL: Bạn thích xem “Love is war” à! Chắc là fan cứng của Ichika luôn!!! :333
Program chuong_trinh;
Uses Crt;
var i,n: integer;
A:array[1…1000] of integer;
Begin
clrscr;
write (‘ Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln (‘ Nhap so thu’ ,i, ‘:’); readln (A[i]);
end;
writeln (‘ Mang da nhập: ‘);
for i:=1 to n do
write(A[i]);
readln;
End.