nhập N, dãy gồm n số nguyên, kiểm tra trong dãy có số âm không
1 câu trả lời
Program traloi;
Uses crt;
Var A:array[1..200];
n,i,dem: integer;
Begin
Clrscr;
dem:=0;
Write('Nhap n:'); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
If A[i]<0 then dem:=dem+1;
End;
Writeln('Trong day co ',dem,' so am');
Readln;
End.
Câu hỏi trong lớp
Xem thêm
