Question

 Viết chương trình nhập vào dãy số có n phần tử với n được nhập từ bàn phím .in ra phần tử vừa nhập ra màn hình

Answer 1

program NhapDaySo;
uses crt;
const
  MAX = 100;
var
  n, i: integer;
  a: array[1..MAX] of real;
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;

  writeln('Day so da nhap la: ');
  for i := 1 to n do
  begin
    writeln('Phan tu thu ', i, ': ', a[i]:0:2);
  end;

  readln;
end.