gấp gấp

[Tri Duc]

các pác ah` có pai` như thế này làm seo nhỉ
cho N số nguyên dương lập trình tính tổng các số đã nhập nhỏ hơn 20. dữ liệu nhập từ bàn phím cho ra màn hình em hok hiểu phải làm kiểu nào nữa sáng mai em phải nộp roài(T_T)

[UltraViolet]

int n,i,tong,so;
tong=0;
printf("nhap n=");
for(i=1;i<n;++i)
{
scanf("%d",&so);
if(so<20) tong=tong+so;
}
printf("tong=%d",d);
May quá mới hơn 11h gần tiếng nữa mới đến ngày MAI
(ah mà còn trường hợp xét N nguyên dương thì bạn tự làm nhé)

[Tri Duc]

cảm ơn pác nha!!! Em hok bit' nói gì hơn.Ah` mà bọn em mới học mấy câu lệnh rẽ nhánh vòng lặp chưa bít gì những câu lệnh của pác nhưng dù sao cũng cảm ơn pác nha!!!!!!!!!!(^-<)

[Tri Duc]

em thử roài sao vẫn hok được ah`

[Tri Duc]

sao chẳng có pác nào trả lời vậy ? em chít mất

[tranvanho]

int n,i,tong,so;
tong=0;
printf("nhap n=");
for(i=1;i<n;++i)
{
scanf("%d",&so);
if(so<20) tong=tong+so;
}
printf("tong=%d",d);
May quá mới hơn 11h gần tiếng nữa mới đến ngày MAI
(ah mà còn trường hợp xét N nguyên dương thì bạn tự làm nhé)

bài này là code bằng C
còn bài pascal thì đyâ nè
uses crt;
var i,N:byte;ptu:array[1..200] of integer;
tong:integer;
begin
write('nhap N:');readln(n);
for i:=1 to n do
begin
write('nhap so thứ ',i);readln(pt[i]);
end;
for i:=1 to n do
if pt[i]<20 then tong:=tong+pt[i];
write('tong cac so lon hon 20 la ',tong);
readln;
end.

[thuonghcm]

tui khoái cái ICON của tranvannho quá, (theo tui là rất ấn tượng);

var i,N:byte;pt:array[1..200] of integer;
tong:integer;
begin
write('nhap N:');readln(n);tong:=0;
for i:=1 to n do
begin
write('nhap so thứ ',i);readln(pt[i]);
if pt[i]<20 then inc(tong,pt[i]);
end;
writeln('Kq=',tong);
end.

[tranvanho]

@thuonghcm cảm ơn lời khen
à mà quên vì bạn Tri Duc mới học đến mấy cái vòng lặp và cấu trúc rẽ nhánh nên bạn chưa thể hiểu về mảng
vậy thì tui xin phép mạo muội post lên bài này không cần mảng
var n,tong,i,so:integer;
begin
write('nhap N:');readln(N);
for i:=1 to N do
begin
write('nhap so thu ',i);readln(so);
if so <20 then
tong:=tong+1;
end;
write('ket qqua la:',tong);
readln;
end.
vài lời vớ vẩn dám thốt ra mong các bác chỉ giáo

[tranvanho]

à nếu bạn Tri Duc hưa hiểu về thuật toán của bài này thì vui lòng PM cho mình
YH:dan_hack_ngheo
tại vì em rất khoái học hack mà

[BeatOfAngle]

tong:=tong+so chứ; mà bác sao lại nói tui ấm đầu,chỉ nhầm là đang trong box C thôi mà,vừa ngáp nhủ vừa viết đâu để ý