Viết chương trình pascal nhập vào một mảng A và chèn đầu thêm 1 số vào dãy

0 bình luận về “Viết chương trình pascal nhập vào một mảng A và chèn đầu thêm 1 số vào dãy”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,k: longint;
   Begin
           Clrscr;
           Write(‘Nhap n,k: ‘); Readln(n,k);
           For i:=1 to n do Read(A[i]);
           Write(k,’ ‘);
           For i:=1 to n do Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2. uses crt;
   var i,n,m:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘N,m= ‘);readln(n,m);
      for i:=1 to n do
            begin write(‘a[‘,i,’]=’);reADLN(a[i]); end;
      for i:=1 to n do write(a[i],’ ‘); write(m);
   readln
   end.

   Bình luận