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
Hươngg Thuu
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 11 2021 lúc 0:06

2:

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,k;

int main()

{

cin>>n>>k;

t=0;

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

{

cin>>x;

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

}

cout<<t;

return 0;

}

Xuyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:27

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

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

}

cout<<t;

return 0;
}

kem kem
Xem chi tiết
Ngọc Hiền
Xem chi tiết
Nga Nguyễn
Xem chi tiết
Hoàng Lê Bảo Ngọc
27 tháng 12 2016 lúc 17:51

Bài 1.

Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)

Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)

Bước 3. \(i\leftarrow i+1\)

Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.

4.2 \(a_i\ge0\) thì quay lại bước 3

4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3

Kiều Giàng
12 tháng 12 2021 lúc 9:31

Viết thuật toán tính tổng các phần tử bằng 0

Trần Khánh Hà
Xem chi tiết
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

Bảo Nguyễn
Xem chi tiết
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.