Viết chương trình nhập vào n số nguyên từ bàn phím, hãy tính và in ra màn hình tổng các số vừa nhập

0 bình luận về “Viết chương trình nhập vào n số nguyên từ bàn phím, hãy tính và in ra màn hình tổng các số vừa nhập”

1. program ct;

   uses crt;

   var i,n,T:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang a[‘,i,’]:=’);readln(a[i]);

   end;

   T:=0;

   for i:=1 to n do T:=T+a[i];

   writeln(‘tong cac so la:=’,T);

   readln

   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var A: array [1..150] of integer;

          S,i,n: integer;

   Begin 

   Write (‘nhap n=’);

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu’,i,’=’);

   Readln (A[i]);

   end;

   S:=0;

   For i:=1 to n do 

   S:=S+ A[i];

   Writeln (‘tong n so nguyen trong day la:’,S);

   Readln 

   End.

   Bình luận