Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap so: ');

readln(n);

if n mod 2=0 then t:=n else t:=0;

while n<>0 do

begin

write('Nhap so: ');

readln(n);

if n mod 2=0 then t:=t+n;

end;

write('Ket qua la: ',t);

readln

end.

uses crt;

var a,t:integer;

begin

clrscr;

t=0;

repeat

readln(a);

if (a>0) then t:=t+a;

until (a mod 2=0);

writeln(t);

readln;

end.

Uses crt;

Var tong,n:real;

Begin

clrscr;

tong:=0;

While tong<=200 do

Begin

readln(n);

tong:=tong+n;

End;

Writeln('Tong: ',tong:0:4);

readln;

End.

*Cách khác:

uses crt;

var x,t:real;

begin

clrscr;

t:=0;

repeat

  write('Nhap x='); readln(x);

t:=t+x;

until t>200;

writeln(t);

readln;

end.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

n=0;

do 

{

cin>>a[i];

}

while ((a[i]==0) or (n==10));

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

cout<<endl;

t=0;

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

if (a[i]%2!=0) t=t+a[i];

cout<<t;

return 0;

}

bạn có thể code bằng c căn bản chỉ dùng printf while vs for thôi đc ko bạn

uses crt;

var n,t1:integer;

s:real;

begin

clrscr;

t1:=0;

s:=1;

repeat

readln\(\left(n\right)\);

if n mod 2=0 then t1:=t1+n

else s:=s*n;

until n=0;

writeln\(\left(t1\right)\);

writeln\(\left(s:4:2\right)\);

readln;

end.

refer

program dem;

uses crt;

var n,i,j,S: integer;

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

begin

i:=0;

S:=0;

while(readln(n)) do

begin

 if(n:=0) then break;

 i:=i+1;

 a[i]:=n;

end;

for j:=1 to i do 

begin

 if(a[j] mod 2 <> 0) then S:=S+a[j];

end;

write(‘Tong cua cac so le la: ‘,S);

readln;

uses crt;

var a,t:integer;

begin

clrscr;

t:=0;

repeat

readln(a);

if (a mod 2<>0) then t:=t+a;

until a=0;

writeln(t);

readln;

end.

đúng rồi cảm ơn bạn 

#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.

Tham khảo

uses crt;

var n,i,ta,td,d1,d2:integer;

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

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

td:=0;

d1:=0;

for i:=1 to n do

if a[i]>0 then

begin

td:=td+a[i];

inc(d1);

end;

writeln('Trung binh cong cac so duong la: ',td/d1:4:2);

d2:=0;

ta:=0;

for i:=1 to n do

if a[i]<0 then

begin

inc(d2);

ta:=ta+a[i];

end;

writeln('Trung binh cong cac so am la: ',ta/d2:4:2);

readln;

end.