đây là bài code tổng lẻ var n,i:longint; tong:int64; a:array [1..1000000] of longint; begin readln(n); for i:=1 to n do readln(a[i]); tong:=0; for i:=1 to n do if (a[i] mod 2 <> 0) then tong:=tong + a[i]; write(tong); end. các bạn sửa làm sao thành tổng dương
2 câu trả lời
uses crt;
var n,i:longint;
tong:int64;
a:array [1..1000000] of longint;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
tong:=0;
for i:=1 to n do
if (a[i] mod 2 = 0) then
tong:=tong + a[i];
write(tong);
readln
end.
var a:array[0..10000007] of int64;
n,t:int64;
i,d:longint;
begin
readln(n);
t := 0;
for i := 1 to n do
begin
read(a[i]);
if a[i]>0 then
begin
inc(d);
t := t + a[i];
end;
end;
write(d,#32,t);
readln;readln;
end.
