Tuấn Yuuki
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 1 |
| Điểm | 5 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Tuấn Yuuki đã trả lời trong câu hỏi: vấn đè : tin học grade 8 ;) Cách đây 6 năm
uses crt;
var i,s:integer;
a: array[1..100] of integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
begin
write('a[',i,']= '); readln(a[i]);
end;
for i:=1 to 10 do
begin
if a[i]<0 then s:=s+1;
end;
write('Co ',s,' so am duoc nhap');
readln;
end.
