Viết chương trình từ tổng của 1 dãy gồm những số nguyên đc nhập từ bàn phím bằng cách dùng vòng lặp while…do

0 bình luận về “Viết chương trình từ tổng của 1 dãy gồm những số nguyên đc nhập từ bàn phím bằng cách dùng vòng lặp while…do”

1. program bai_2

   var n,i,s:integer;
   a:array[1..100] of integer;
   begin
   write(‘Nhap n: ‘);

   readln(n);
   i:=1;
   while i<=n do begin
   write(‘Nhap so ‘,i,’: ‘);

   readln(a[i]);
   s:=s+a [i];
   i:=i+1;
   end;
   writeln(‘Tong cac so do la ‘,s);
   readln
   end.

   Bình luận

2. var n,i,s:integer;
   a:array[1..100] of integer;
   begin
   write(‘Nhap n: ‘);readln(n);
   i:=1;
   while i<=n do begin
   write(‘Nhap so thu ‘,i,’: ‘);readln(a[i]);
   s:=s+a[i];
   i:=i+1;
   end;
   writeln(‘Tong cac so do la ‘,s);
   readln
   end.

   Bình luận