Question

cho dãy số gồm có N số nguyên thực hiện nhập các giá trị đã cho dãy số đó và in ra giá trị đã nhập

Answer 1

program PSMCG;

var

     arr: array of integer;

     n, i: integer;

begin

     write('Nhap so phan tu cua day so: ');

     readln(n);

     setlength(arr, n);

     for i := 0 to n-1 do begin

          write('Nhap gia tri thu ', i+1, ': ');

          readln(arr[i]);

     end;

     writeln('Gia tri da nhap: ');

     for i := 0 to n-1 do

          writeln(arr[i]);

end.