Bài 11: Kiểu mảng

AD

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).

NT
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.

Bình luận (0)

Các câu hỏi tương tự
AD
Xem chi tiết
AD
Xem chi tiết
AD
Xem chi tiết
AD
Xem chi tiết
NN
Xem chi tiết
VT
Xem chi tiết
LC
Xem chi tiết
D0
Xem chi tiết
H24
Xem chi tiết