K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 5 2021

program du_lieu;

uses crt;

var i,n:integer;

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

tbc:real;

f:text;

begin

clrscr;

assign(f,'DULIEU.INP');reset(f);

readln(f,n);

for i:=1 to n do

begin

read(f,a[i]);

end;

close(f);

for i:=1 to n do

tbc:=tbc+a[i];

writeln(tbc/n);

readln;

end.

1. Tính tổng các số trong dãy số A = a1+a2+a3+..aN. Xác định input của bài toán 2. Cho N và dãy a1,a2,...aN. Trường hợp tìm thấy và đưa ra chỉ số i đầu tiên mà a i chia hết cho 3 thì với điều kiện nào thuật toán sẽ dừng?A. i>N B.ai chia hết cho 3C. ai không chia hết cho 3D. i<N3. Thuật toán sau dùng để giải quyết bài toán nào?B1: Nhập N, các số hạng a1,a2,a3,..aNB2: Tong - 0, i - 1B3. Nếu I>N thì đưa ra Tong rồi kết thúcB4:...
Đọc tiếp

1. Tính tổng các số trong dãy số A = a1+a2+a3+..aN. Xác định input của bài toán

 2. Cho N và dãy a1,a2,...aN. Trường hợp tìm thấy và đưa ra chỉ số i đầu tiên mà a i chia hết cho 3 thì với điều kiện nào thuật toán sẽ dừng?

A. i>N

 B.ai chia hết cho 3

C. ai không chia hết cho 3

D. i<N

3. Thuật toán sau dùng để giải quyết bài toán nào?

B1: Nhập N, các số hạng a1,a2,a3,..aN

B2: Tong - 0, i - 1

B3. Nếu I>N thì đưa ra Tong rồi kết thúc

B4: Nếu i chia thì hết cho 2 thì Tong - Tong + Ai

B5: i - i+1

B6: quay lại B3

 A. Tính tổng các số có vị trí chẵn

 B. Tính tổng dãy số

C. Tính tổng các số dương trong dãy

D. Tính tổng các số chẵn trong dãy

 4. Thuật toán sau dùng để giải quyết bài toán nào?

B1: Nhập giá trị hai số a,b

B2: c -a

B3: a - b

B4: b - c

B5: đưa ra giá trị mới của a và b rồi kết thúc

A. Hoán đổi giá trị 2 số a,b

 B. Hoán đổi giá trị 3 số a,b,c

 C. Tìm giá trị của a,b,c

 D. Nhập giá trị của 3 số a,b,c

1
11 tháng 11 2021

1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

cin>>n;

long long t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

uses crt;

const fi='dulieu.inp';

var f1:text;

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

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do 

 begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

26 tháng 1 2017

Đáp án A

26 tháng 6 2023

giúp với 5 phút nx e phải nộp bài rồi 

 

26 tháng 6 2023

em thi hả