viết chương trình nhập vào dãy số nguyên gồm n phần tử in ra dãy số đã nhập ra màn hình

Question

tonhu · Answer

program phuongt;

uses crt;

var A: array[1..100] of integer;

n, i: integer;

begin

clrscr;

write(‘Nhap n = ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘, i, ‘] = ‘); readln(A[i]);

end;

write(‘Day so da nhap la: ‘);

for i:=1 to n do write(A[i]:3);

readln

end.

dongocdiem · Answer

uses crt;

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

i,n: integer;

begin

clrscr;

write (‘nhap so phan tu: ‘); readln (n);

for i:=1 to n do

begin

write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);

end;

write (‘day so da nhap la: ‘);

for i:=1 to n do write (a[i],’ ‘);

readln;

end.

`text\(xin hay nhất !!!)`