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.
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.
