viết chương tình tính tổng của một dãy số gồm n số, biết n nhập từ bàn phím

0 bình luận về “viết chương tình tính tổng của một dãy số gồm n số, biết n nhập từ bàn phím”

1. program ct;

   uses crt;

   var A:array[1..100] of integer;

         i,n:integer;

         S:longint;

   begin clrscr;

      write(Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        S:=0;

      for i:=1 to n do

        S:=S+A[i];

      writeln(‘Tong day so la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. Chúc thi tốt ❤️

   Program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n:integer;

         S:longint;

   begin clrscr;

      write(Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        End;

        S:=0;

      for i:=1 to n do

        S:=S+A[i];

      writeln(‘Tong day so la: ‘,S);

   readln;

   End.

   #Xong rồi ! ????❤️ 

   #by_khoapham

   Bình luận