Cho N số nguyên và dãy a1,a2..an . viết thuật toán tính tổng các số nguyên nhỏ hơn 100

0 bình luận về “Cho N số nguyên và dãy a1,a2..an . viết thuật toán tính tổng các số nguyên nhỏ hơn 100”

1. program az;

   uses Crt;

   var i,n,a : integer;

             S : longint;

   begin

   clrscr;

   S := 0;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do 

   begin

   Write(‘Nhap phan tu thu ‘ , i , ‘ la : ‘); readln(a);

   If (a < 100) then S := S + a;

   end;

   Writeln(‘S = ‘ , S);

   end.

   Bình luận