Bài 11: Kiểu mảng

Hyun Ahn Song

lập trình  nhập vào mảng a gồm 10 phần tử dương. In mảng vừa nhập ra màn hình

Nguyễn Lê Phước Thịnh
20 tháng 1 2021 lúc 20:10

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 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ự
Benny
Xem chi tiết
Trung Trần Việt
Xem chi tiết
Miru Senpai
Xem chi tiết
Meii
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Cẩm Tú
Xem chi tiết
Thảo Nguyễn
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết