Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím) 22/07/2021 Bởi Maria Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím)
program nhap_in; uses crt; var A:array[1..100] of integer; n,i:byte; begin clrscr; write(‘Nhap so luong phan tu N: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; write(‘Mang da nhap la: ‘); for i:=1 to n do write(A[i],’ ‘); readln; end. Bình luận
program nhap_in;
uses crt;
var A:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘Mang da nhap la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
readln;
end.
Dưới ảnh
Code C