#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<t;

return 0;

}

Program HOC24;

Uses crt;

var i,j: integer;

j:=1; i:=0;

while(j<=50) do

begin

j:=j+1;

if(j mod 2=0) then i:=i+j;

end;

writeln(i);

readln;

end.

#include <bits/stdc++.h>
using namespace std;
int main ()
{
    int a[32];
    int n,i,s;
    cout<<"nhap so phan tu cua mang ";
    cin>>n;
    cout<<"nhap cac phan tu cua mang ";
    for (i=1; i<=n; i++)
    {
        s=0;
        cin>>a[i];

    }
    for(i=1; i<=a[i]; i++) s=s+i;

    cout<<s;
    return 0;
}

Program HOC24;

var i,n: integer;

a: array[1..1000] of integer;

t: longint;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(i);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la: ',t);

readln

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],dem,t;

cin>>n;

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

cin>>A[i];

dem=0; t=0;

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

if (A[i]%2==0) dem++;

else t+=A[i];

cout<<dem<<endl;

cout<<t;

return 0;

}

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 55 do s:=s+i;

writeln(s);

readln;

end.

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

writeln('a[',i,']=');readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????