tính tổng của 100 số nhập vào từ bàn phím ( sử dụng kiểu dữ liệu mảng)

0 bình luận về “tính tổng của 100 số nhập vào từ bàn phím ( sử dụng kiểu dữ liệu mảng)”

1. program ct;

   uses crt;

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

         i:integer;

         S:longint;

   begin clrscr;

      for i:=1 to 100 do

       begin

          write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

        end;

      for i:=1 to 100 do

        S:=S+A[i];

      write(‘Tong cua 100 so la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. Program tong;

   Uses crt;

   Var a:array[1..100] of integer;

         n,s,i:integer;

   Begin

   Clrscr;

   Write(‘nhap so phan tu cua mang:n=’);readln(n);

   For i:=1 to n do

   Begin

   Write(‘a[‘,i,’]=’); readln(a[i]);

   End;

   For i:= 1 to n do

   Begin

   S:=0;

   S:= s+a[i];

   Write(‘tong cua cac phan tu trong mang:s=’,s);

   End;

   Readln;

   End.

   Bình luận