Question

Viết Phương trình Pascal thực hiện các yêu cầu sau

-Nhập vào một dãy số gồm N số Nguyên

-Hiển Thị Dãy số vừa nhập

Answer 1

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap N:' ); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap vua nhap la: '); 

for i:=1 to n do write(a[i],' ');

readln

end.

Answer 2

uses crt;
var a:array[1..1000000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' ');
      readln;
end.