Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
3i3 congaf
Xem chi tiết
Nguyễn anh đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
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,

Phạm Thị Khánh huyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
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

Hoàng Hải Yến
Xem chi tiết
Nguyễn Thiện Minh
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.

duong nguyenvan
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.

Hoàng Hải Yến
Xem chi tiết
Lieu Loo
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);

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
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đ)

kem kem
Xem chi tiết
Nguyễn Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

Hung Caominh
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

Tiểu Bạch Kiểm
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}