viết chương trình nhập vào N số nguyên và tính tổng .gips mik vs

0 bình luận về “viết chương trình nhập vào N số nguyên và tính tổng .gips mik vs”

1. program tong;

   uses crt;

   var s,n,i:integer;

   begin

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

   s:=0;

   for i:=1 to n do s:=s+i;

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận

2. program ct;

   ues crt;

   var a: array [1 : 100 ] of :integer;

         n,i,tb:integer;

         S:longinr;  

   begin

   clrscr;

   writeln(‘nhap do dai day so’);

   readln (n);

   for i:= 1 to n do bigin

   writeln(‘nhap co’thu’,i’:’);

   readln a [ i ] ; end.

   end;

   S:= S+a [ i ];

   Tb:= S/n;

   writeln (‘gia tri trung binh trong day so la’,Tb);

   readln;

   end.

   Bình luận