Em hãy viết chương trình pascal để nhập vào màn hình (đen)nhiều số nguyên(không biết bao nhiêu số) cho đến khi nào nhập số 0 thì dừng và cho biết đã nhập bao nhiêu số, không tính số 0. Em hãy viết chương trình pascal để nhập vào màn hình (đen)20 số nguyên và tính tổng các số đã nhập.

 đây nha 

câu đầu 

var n,d:integer;

begin

repeat 

write('Nhap n: '); read(n);

inc(d);

until(n=0);

writeln;

write('d =',d);

readln

end.

câu  thứ hai 

var i:byte;

     c,s:integer;

begin

for i:=1 to 20 do

begin

read(c);

s:=s+c;

end;

writeln;

write('Tong la: ',s);

readln

end.

chúc bạn học tốt 

1)

program cau1;

var n,s:integer;

begin clrscr;

   repeat 

      writeln('Nhap so nguyen: ');readln(n);

   inc(s);

   until(n=0);

      write('Da nhap ',s,' so');

readln;

end.

2)

program cau2;

var i,S:integer;

      A:array[1..20] of integer;

begin clrscr;

   S:=0;

   for i:=1 to 20 do

     begin

       writeln('A[',i,']:'); readln(A[i]);

     end;

   S:=S+A[i];

   write('Tong la: ',S);

readln;

end.

Học tốt!