Question

Viết chương trình nhập vào các phần tử của dãy số nguyên .In dãy số vừa nhập lên màn hình.     

 ai cho mình biết đc ko :D

Answer 1

Var a:array:[1..1000] of integer;

i,n:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

write('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Answer 2

program NhapVaInDaySo;
 var  danh_sach: array[1..1000] of integer;
  n, i: integer;

begin
  write('Nhap so luong phan tu cua day: ');
  readln(n); 

for i := 1 to n do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(danh_sach[i]);
  end;

writeln('Day so vua nhap là:');
  for i := 1 to n do
    write(danh_sach[i], ' ');

  readln;
end.