Program BTH; uses crt; var b:array[1..20] of longint; i:byte; Begin clrscr; Write('Nhap n: ');readln(n); For i:=1 to n do Begin Write('Nhap so thu ',i,' : ');readln(b[i]); end; For i:=1 to n do Writeln('So thu ',i,' trong mang B la: ',b[i]); readln; End.
Program FNG; Uses crt; Var B: array[1..20] of longint; n,i: 1..20; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('B[',i,'] = '); Readln(B[i]); End; Write('Mang B: '); For i:=1 to n do Write(B[i],' '); Readln End.
