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 câu trả lời

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.

Câu hỏi trong lớp Xem thêm