viết chương trình tính tổng giá trị các số trong dãy số Em cảm ơn!

0 bình luận về “viết chương trình tính tổng giá trị các số trong dãy số Em cảm ơn!”

1. program Tongdaysp;
   var 
       S: array [1..10000] of Real;
       tong: Real;
       n, i:Integer;
   Begin
       readln(n);
       for i:= 1 to n do
           readln(S[i]);
       for i:= 1 to n do
           tong:= tong + S[i];
       write(tong:0:3);
   End.

   Bình luận

2. Uses crt;
   Var i, n: integer;
       S: real;
       A: ARRAY[1..100] OF REAL;
   BEGIN
        Clrscr;
        Repeat
              Write(‘Nhap so cac so trong day so: ‘);      Readln(n);
        Until n>0;
        For i:=1 to n do
            Begin
                 Write(‘A[‘,i,’]: ‘);
                 Readln(A[i]);
            End;
        For i:=1 to n do S:=S+A[i];
        Write(‘Tong day so tren la: ‘,S:0:3);
        Readln;
   END.

   Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!

   Bình luận