Bạn bè (0)
Hoạt động gần đây (2)
-
Nguyễn Hoàng Long đã trả lời trong câu hỏi: Viết chương trình nhập 1 dãy số nguyên có N phần tử. Đếm trong dãy số có bao nhiêu phần tử là số dương? Âm? Cách đây 4 năm
var a:array[1..100] of longint;
d,d1,n,i:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i]<0 then inc(d);
if a[i]>0 then inc(d1);
end;
write('so so am la:',d);
write('so so duong la:d1);
readln;
end.
-
Nguyễn Hoàng Long đã trả lời trong câu hỏi: Viết chương trình nhập vào dãy số nguyên N(-3270 Cách đây 4 năm
var a:array[1..100] of longint;
n,i:longint;
begin
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']:');readln(a[i]);
end;
readln;
end.