Question

Mọi người giúp mình với nhé
Viết chương trình sử dụng biến mảng nhập dãy số N nguyên từ bàn phím rồi in ra màn hình dãy số N vừa nhập.
Help Meee

Answer 1

uses crt;

var i, n:integer;

a: array [1..100] of integer;

begin

clrscr;

write (' nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

readln

end.

Answer 2

uses crt;

var i, n:integer;

a: array [1..100] of integer;

begin

clrscr;

write (' nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

writeln(a[i]);

readln

end.