Hai đề này đều như nhau nhé bạn !

Có thể có 2 cách làm :

Cách 1 : Không làm theo mảng 1 chiều. Bạn phải tự nhập từng giá trị trong dãy số nguyên n đó. Làm cái này sẽ mất nhiều thời gian.

Cách 2 : Dùng biến mảng, không dài dòng.

Cách làm :

uses crt;
var a : array[1..100] of integer;
n,i : integer;
begin clrscr;
write('Nhap so phan tu mang :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to n do write(a[i]:3);
readln
end.

program ct;

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('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln('day so vua nhap la:');

for i:=1 to n do

write(A[i],'  ');

readln

end.

Mình thấy 2 đề điều giống nha mình làm một bài