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
