a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

cin>>n;

int t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

a)Số số hạng là : (99-11):2+1=45 (số)

   Tổng là : (99 +11) x 45 : 2 = 2475

b) Số số hạng là: (98-10):2+1=45 (số)

  Tổng là : (98+10)x45:2=2430

Các ý trên là dạng tính tổng của dãy số cách đều :

Công thức đây : Số hạng đầu trừ số hạng cuối :2 +1

                          Tổng là : Số hạng đầu + số số hạng  x số số hạng :2

Mình chỉ cho bạn công thức của 2 ý đầu thui , mình cho bạn bít 2 ý đó , ý c mình ko kịp làm , bây giờ mình phải đi học .

Xin lỗi bạn

mình nhờ mọi người giúp đỡ

a,                       Số các số lẻ có 2 c/s là

  ( 99 - 1 ) : 2 + 1 = 50 (số)

 Tổng các số đó là

 (99+1)x50:2 = 2500

Tương tự nha bạn

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,x,i,t1,t2;

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;

}

program BaiToanMang;

var
  A: array[1..100] of integer;
  N, i, demChan, tongLeChia3: integer;

begin
  write('Nhap so phan tu cua mang: ');
  readln(N);
  writeln('Nhap cac phan tu cua mang: ');
  for i := 1 to N do
  begin
    write('a[', i, ']= ');
    readln(A[i]);
  end;
  tongLeChia3 := 0;
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
    begin
      tongLeChia3 := tongLeChia3 + A[i];
    end;
  end;
  writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
  demChan := 0;
  for i := 2 to N do
  begin
    if (A[i] mod 2 = 0) and (i mod 2 = 1) then
    begin
      demChan := demChan + 1;
    end;
  end;
  writeln('So phan tu chan o vi tri le: ', demChan);
  writeln('Cac so chan chia het cho 5: ');
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
    begin
      write(A[i], ' ');
    end;
  end;
end.

ko bt đúng ko ko dùng pascal nhiều

b dùng pascal hay python V:

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.

uses crt;

var a:array[1..100]of integer;

i,n,dem1,dem2,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

dem2:=0;

t:=0;

for i:=1 to n do 

begin

 if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

if 10 mod a[i]=0 then t:=t+a[i];

end;

writeln(dem1);

writeln(dem2);

writeln(t);

readln;

end.