viết chương trình tính tổng n số nhập từ bàn phím giúp mik vs mik cần gấp

0 bình luận về “viết chương trình tính tổng n số nhập từ bàn phím giúp mik vs mik cần gấp”

1. var n,i,s:longint;
   begin
   write(‘nhap so n=’);readln(n);
   s:=0;
   for i:=1 to n do s:=s+i;
   writeln(‘ tong n so nguyen la:’,s);
   readln;
   end

   Bình luận

2. program Min;
   uses crt;
   var tong,i,n:integer;
       A:array[1..1000] of integer;
   begin
      clrscr;
      tong:=0;
      writeln(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         writeln(‘Nhap so hang thu ‘,i,’: ‘); readln(A[i]);
         tong:=tong+A[i];
      end;
      writeln(‘Tong cac so la: ‘,tong);
      readln
   end.

   Bạn kiểm tra lại chương trình nha 😀

   Bình luận