Những câu hỏi liên quan
3C
Xem chi tiết
ND
Xem chi tiết
NT
29 tháng 1 2023 lúc 15:44

uses crt;

var n,t,i,x:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

begin

readln(x);

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

end;

writeln(t);

readln;

end,

Bình luận (0)
PH
Xem chi tiết
NT
21 tháng 12 2020 lúc 19:14

Thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: t←0; dem←0; i←1

-Bước 3: nếu a[i] mod 2=0 thì t←t+a[i] và dem←dem+1;

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất dem và t

-Bước 7: Kết thúc

Bình luận (0)
HY
Xem chi tiết
NM
23 tháng 11 2016 lúc 15:48

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.

Bình luận (0)
DN
20 tháng 12 2017 lúc 16:26

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.

Bình luận (0)
HY
Xem chi tiết
LL
29 tháng 12 2017 lúc 13:24

for i:=1 to n do

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

writeln(' a)', s);

write(' b),ss);

Bình luận (0)
NH
Xem chi tiết
DT
24 tháng 7 2018 lúc 12:56

Bước 1: Nhập N và dãy số  a 1 , . . . . , a n

Bước 2: i ←1;S ← 0 (0,5đ)

Bước 3: i > N thì sang bước 6 ngược lại sang bước 4 (0,5đ)

Bước 4: Nếu ai chia hết cho 2 thì S ←S + ai ; (0,5đ)

Bước 5: i ← i+1; quay lại bước 3

Bước 6: dừng và đưa S ra màn hình. (0,5đ)

Bình luận (0)
KK
Xem chi tiết
NV
Xem chi tiết
NT
28 tháng 12 2021 lúc 22:46

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

if (x%2==0) t=t+x;

}

cout<<t;

return 0;

}

Bình luận (0)
HC
18 tháng 6 2022 lúc 12:17

b1:Nhập n

b2:i<-1 to n

Nhập A[i]

b3:s<-0;

b4:i<-1 to n

s<-s+A[i]

b5:Xuất S và kết thúc chương trình

Bình luận (0)
TK
Xem chi tiết
NT
21 tháng 10 2021 lúc 0:00

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;

}

Bình luận (0)