Viết chương trình cho phép nhập dãy số nguyên a1, a2, a3, ....an. Thực hiện: a) Tính tổng trung bình các số chẵn của dãy b) Khoảng cách giữa hai số là khoảng cách giữa hai điểm khi biểu diễn chúng tr...

Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An

#Tin học lớp 8

2

NL

Nguyễn Lê Phước Thịnh

18 tháng 2 2022

uses crt;

var x,n,i,t: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.

Đúng(0)

GE

ღღղցմվễղ Եհíệղ cհíղհ๖ۣۜঌ

18 tháng 2 2022

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

Đúng(0)

NT

Ngọc Ty

24 tháng 4 2023

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

24 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

Đúng(1)

PV

Phong Vũ

1 tháng 3 2022

viết chương trình nhập vào số nguyên dương n và dãy a có n số nguyên a1,a2,a3,...,an. tính giá trị trung bình của các số có giá trị dương ở vị trí lẻ ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

1 tháng 3 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

dem=0;

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

if ((a[i]>0) and (i%2==1))

{

t+=a[i];

dem++;

}

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}

Đúng(0)

ND

Ngọc Diệp

12 tháng 5 2021

cho dãy số gồm N số tự nhiên a1,a2,a3,...aN .Viết chương trình in ra trung bình cộng của các phần tử trên .Dữ liệu vào bởi tệp DULIEU.INP có cấu trúc : dòng đầu tiên chứa số nguyên N ,dòng thứ 2 chứa các số a1,a2,a3,...aN các số cách nhau ít nhất một kí tự trống

#Tin học lớp 11

1

NA

nguyễn an phát

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.

Đúng(0)

NT

nguyễn thu thủy

12 tháng 5 2021

Viết chương trình tính tổng các số chẵn trong dãy số nguyên A1, A2, ..., An. Biết rằng n, A1, A2, ..., An là các số nguyên nhập từ bàn phím (n>0)?

Các bạn giúp mình nha ,mình cần gấp lắm

#Tin học lớp 8

1

NT

Ngô Tuấn Đạt

12 tháng 5 2021

program Tinhtong;

uses crt;

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

sum,n:integer;

begin clrscr;

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

for i:=1 to n do

begin

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

end;

sum:=0;

for i:=1 to n do

if (a[i] mod 2 = 0) then sum:=sum+a[i];

write('Tong cac so chan = ',sum);

readln;

end.

Đúng(2)

NT

nguyễn thu thủy

12 tháng 5 2021

cảm ơn bạn nha ,nhờ bạn mình nộp kịp bài

Đúng(0)

TN

Thiên Nhật

14 tháng 2 2022

Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên , A1, A2,...,An

a) Đếm số hợp số chẵn và số lẻ

b) Tính tổng các số chẵn

c) đếm số lượng nguyên tố trong dãy

#Tin học lớp 11

2

VH

Vương Hương Giang

14 tháng 2 2022

uses crt;

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

i,n,tc,tl,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

tc:=0;

tl:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

14 tháng 2 2022

uses crt;

var a:array[1..1000]of integer;

i,n,dem1,dem2,t1,dem3,j,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

dem1:=0;

dem2:=0;

t1:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then

begin

dem1:=dem1+1;

t1:=t1+a[i];

end;

else dem2:=dem2+1;

end;

dem3:=0;

for i:=1 to n do

if (a[i]>1) then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

if a[i] mod j=0 then kt:=1;

if kt=0 then dem3:=dem3+1;

end;

writeln(dem1, ' ',dem2);

writeln(t1);

writeln(dem3);

readln;

end.

Đúng(1)

HH

Hiep Ho

23 tháng 4 2023

Viết một chương trình nhập n nguyên dương và n số nguyên a1, a2,…,an. a/ Tính tổng các số chẵn của dãy (In kết quả trên một dòng) b/ In các số của dãy nằm ở vị trí chẵn (2,4, 6…) ra màn hình (trên 1 dòng ),

#Tin học lớp 11

0

VT

Võ Thái An Bình

28 tháng 7 2021

Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:a=a1,a2,a3,..,an.b=b1,b2b,b3,...,bn.c=a1,b1,a2,b2,a3,b3,...,an,bn.Vd: n=6. A=4 5 6 1 2 3. B=9 4 7 0 8 4.>> C=4 9 5 4 6 7 1 0 2 8 3 4 .Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy...

Đọc tiếp

#Tin học lớp 8

1

NH

Nguyên Hưng Trần

29 tháng 7 2021

Bài 1:

Uses crt;

var i,n,j:integer;

a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

for i:= 1 to n do readln(a[i]);

for i:= 1 to n do readln(b[i]);

j:=0;

for i:= 1 to n do

Begin

inc(j);

c[j] := a[i];

inc(j);

c[j] := b[i];

end;

for i:= 1 to j do write(c[i],' ');

readln;

end.

Đúng(1)

VT

Võ Thái An Bình

29 tháng 7 2021

thank a nha

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP