Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Anh Lê duy

Viết chương trình nhập vào 1 mảng cho đến khi gặp số 0 thì dừng lại. Đưa ra mảng đã nhập vào và kết quả của nó (While, repeat).

Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:55

uses crt;

var n,i,x:integer;

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

begin

clrscr;

n:=0;

repeat;

readln(x);

n:=n+1;

a[n]:=x;

until x=0;

for (i=1; i<=n; i++)

write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
nông thị ngân
Xem chi tiết
Van Trieu
Xem chi tiết
Linh Chi
Xem chi tiết
Divine 000
Xem chi tiết
Benny
Xem chi tiết