Question

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

Answer 1

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.