Viết chương trình nhập từ bàn phím mảng B gồm N phần tử là các số nguyên.Đưa mảng B ra màn hình( N<=20 )
0 bình luận về “Viết chương trình nhập từ bàn phím mảng B gồm N phần tử là các số nguyên.Đưa mảng B ra màn hình( N<=20 )”
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.
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.