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
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
By Josephine
By Josephine
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
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.