Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var a:array[0..10000007] of longint;
i,t,n:longint;
begin
readln(n);
t:=0;
for i := 1 to n do
begin
read(a[i]);
if (a[i]>0) then
t := t + a[i];
end;
writeln(t);
readln;readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Xem thêm:
ĐÁP ÁN:
var a:array[0..10000007] of longint;
i,t,n:longint;
begin
readln(n);
t:=0;
for i := 1 to n do
begin
read(a[i]);
if (a[i]>0) then
t := t + a[i];
end;
writeln(t);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
CÂU HỎI MỚI NHẤT
Gấp gấp bay oiiiiiii
Làm và giải thích cho em với ạ
Mong các cao nhân giải giúp em câu 8.
0
393
0
Câu d đó, có thể vẽ sơ đồ ra luôn không ạ. Em cảm ơn nhiều ạ