Bài 11: Kiểu mảng

Nhi Hương
Viết chương trình nhập vào 100 số nguyên dương từ bàn phím. In ra màn hình các số vừa nhập.
Nguyễn Lê Phước Thịnh
7 tháng 2 2021 lúc 20:48

uses crt;

var a:array[1..100]of integer;

i:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
nguyễn hoàng long
Xem chi tiết
Nguyễn tiên
Xem chi tiết
boo2401
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Yến Nhi
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết
Meii
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Nguyen Loi
Xem chi tiết