viết chương trình nhập vào một mảng tính tổng các số vừa nhập trong mảng

0 bình luận về “viết chương trình nhập vào một mảng tính tổng các số vừa nhập trong mảng”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           i, s, n: integer;
   begin
         clrscr;
         write(‘Nhap n = ‘); readln(n);
         s:=0;
         for i:=1 to n do
         begin
                write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                s:=s+A[i];
         end;
         write(‘Tong = ‘, s);
         readln
   end.

   Bình luận

2. Program nhap;

   Uses crt;

   Var a:array[1..1000]of longing;

          i,S:byte;

   Begin

          Clrscr;

          For i:=1 to 1000 do 

            Begin

               Write (‘nhap vao 1 mang bat ki’);

               Readln(a[i]);

             End;

            S:=0;

             For i:=1 to 1000 do 

             S:=S+a[i];

           Write (‘tong cua so hang,S’);

           Readln

   End.

   Bình luận