viết thuật toán nhập vào số nguyên N và dãy A gồm N số nguyên :a1,…,an. Đếm xem có bao nhiêu số âm,bao nhiêu số dương trong dãy ?
Mik đag thi nên cần rất gấp ạ
viết thuật toán nhập vào số nguyên N và dãy A gồm N số nguyên :a1,…,an. Đếm xem có bao nhiêu số âm,bao nhiêu số dương trong dãy ? Mik đag thi nên cầ
By Bella
uses crt;
var n,i,c,l:longint; a:array[1..10000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’,]=’);readln(A[i]);
if a[i] mod 2=0 then inc(c) else inc(l);
end;
writeln(‘Co ‘,c,’ so chan’);
writeln(‘Co ‘,l,’ so le’);
readln
end.
Program NN;
Uses crt;
Var A: array[1..10000] of longint;
n,i,da,dd: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
da:=0; dd:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i]<0 then inc(da);
If A[i]>0 then inc(dd);
End;
Write(‘Co ‘,da,’ so am va ‘,dd,’ so duong’);
Readln
End.