Question

Viết chương trình nhập vào một mảng và in kết quả ra mảng vừa nhập ?

Answer 1

program NhapMang;

var

      mang: array of integer;

      n, i: integer;

begin

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

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      writeln('Mang vua nhap la:');

      for i := 0 to n-1 do

      begin

      write(mang[i], ' ');

      end;

      readln;

end.

Answer 2

program NhapMang;
const
  MAXSIZE = 100; 
var
  a: array[1..MAXSIZE] of integer; 
  n, i: integer; 
begin
  write('Nhap so luong phan tu cua mang: ');
  readln(n); 
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;
  writeln('Mang vua nhap la:');
  for i := 1 to n do
    write(a[i], ' ');
end.