Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a: array [1..100] of integer;
n, i, tsc, tsl: integer
begin
clrscr;
write('So phan tu cua mang la: '); readln(n);
while n<1 do begin
write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);
end;
for i:=1 to n do begin
write('So thu ',i,' la: '); readln(a[i]);
end;
tsc:=0;
tsl:=0;
for i:=1 to n do
if a[i] mod 2 =0 then tsc:=tsc+a[i]
else tsl:=tsl+a[i];
writeln('tong cac so chan la: ',tsc);
write('tong so cac so le la: ',tsl);
readln;
end.
Program bai1;
uses crt;
var i,n,s,s1: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n =');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cac so duong = ' ,s);
for i:= 1 to n do
if a[i] mod 2 <> 0 then s1:=s1+a[i];
writeln('tong cac so le =' ,s1);
readln;
end.
program Tinhtong;
uses crt;
var a:array[1..100] of integer;
sum,n:integer;
begin clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
sum:=0;
for i:=1 to n do
if (a[i] mod 2 = 0) then sum:=sum+a[i];
write('Tong cac so chan = ',sum);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long t1,t2,i,n,x;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t=t+x;
}
cout<<t;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
#include<iostream>
using namespace std;
int main() {
int g = 0;
int n;
cin >> n;
int a[n];
for (int i = 0; i < n; i++) {
cin >> a[i];
}
for (int i = 0; i < n; i++) {
g += a[i];
}
cout << g;
return 0;
}