viết thuật toán bài toán tuần tự Input:N, dãy n số nguyên Output: cho biết số lượng số nguyên dương,tổng các số nguyên âm

0 bình luận về “viết thuật toán bài toán tuần tự Input:N, dãy n số nguyên Output: cho biết số lượng số nguyên dương,tổng các số nguyên âm”

1. Uses crt;
   Var n,dem,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           dem:=0; s:=0;
           For i:=1 to n do
                   If i>=0 then inc(dem)
                   Else s:=s+i;
           Write(‘Co ‘,dem,’ so nguyen duong’);
           Writeln;
           Write(‘Tong cac so nguyen am la: ‘,s);
           Readln
   End.

   Bình luận