Cho dãy số a0 , a1 ,…., an-1 : a) Tìm tổng của tất cả các phần tử trong danh sách. b) In tất cả các phần tử trong danh sách. c) In tất cả các phần tử âm trong danh sách. d) Kiểm tra xem có phải tất cả...

HP

Hậu Phạm Công

23 tháng 12 2022

Cho dãy số a0 , a1 ,…., an-1 : a) Tìm tổng của tất cả các phần tử trong danh sách. b) In tất cả các phần tử trong danh sách. c) In tất cả các phần tử âm trong danh sách. d) Kiểm tra xem có phải tất cả các phần tử trong danh sách đều dương hay không. e) Tìm phần tử nhỏ nhất và lớn nhất trong danh sách f) Sắp xếp danh sách theo thứ tự tăng...

Đọc tiếp

#Tin học lớp 11

0

TD

Tiến Đạt Huỳnh

27 tháng 4 2023

Cho mảng A gồm N phần tử nguyên a1,a2,..,an. Với N < 103 nhập từ bàn phím. a. Hãy viết chương trình nhập mảng A. b. In ra màn hình tất cả các phần tử chẵn có trong mảng A. c. In ra màn hình tất cả các phần tử lẻ có trong mảng A.

#Tin học lớp 8

1

TD

Tiến Đạt Huỳnh

27 tháng 4 2023

Làm như z có đg ko

Uses crt;

Var n,i: integer;

A: Array[1..1000] of integer;

Begin

clrscr;

Repeat

Write('Nhap n: '); Readln(n);

Until (n<103) and (n>0);

a)

For i:=1 to n do

begin

Write('Nhap phan tu A[',i,']= ');

Readln(A[i]);

end;

b)

Write('Cac phan tu chan co trong mang: ');

For i:=1 to n do

If A[i] mod 2=0 then write(A[i],' ');

writeln;

c)

Write('Cac phan tu le co trong mang: ');

For i:=1 to n do

If A[i] mod 2=1 then write(A[i],' ');

Readln

End.

Đúng(1)

H9

HT.Phong (9A5)

CTVHS

27 tháng 4 2023

Uses crt;

var i,n: longint;

a: array[1..103] of longint;

begin clrscr;

readln(n);

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

for i:=1 to n do if(a[i] mod 2=0) then write(a[i],' ');

for i:=1 to n do if(a[i] mod 2<>0) then write(a[i],' ');

readln;

end.

Đúng(2)

NN

Ngọc Nguyễn

9 tháng 3 2023

Cho danh sách a gồm n phần tử có kiểu Nguyên viết chương trình nhập các phần tử của danh sách tính và đưa ra màn hình tổng các số là bội của 3 có trong danh sách

#Tin học lớp 10

1

ML

Minh Lệ

9 tháng 3 2023

Program HOC24;

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

i,n : integer;

t: longint;

begin

write('Nhap N: '); realdn(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];

write('Tong cac so la boi cua 3 trong danh sach la: ',t);

readln

end.

Đúng(1)

TM

tâm minh

23 tháng 4 2023

4. Viết chương trình nhập vào một danh sách các số tự nhiên n phần tử. Đưa ra màn hình các kết quả sau:- Đếm các phần tử trong danh sách- Tính tổng các phần tử trong danh sách- Tính tổng các số chẵn, tổng các số lẻ- Chèn vào đầu danh sách một giá trị’- Chèn vào cuối danh sách một giá trị- Nhập một số tự nhiên x, tìm và xóa trong danh sách các số bằng...

Đọc tiếp

#Tin học lớp 10

0

ML

Minh Lệ

17 tháng 7 2023

Lát cắta. Cho a là mảng (danh sách) các số. Hãy dùng lát cắt tạo danh sách b và dùng vòng lặp For in kết quả ra màn hình (xem mẫu ở Hình 1) để kiểm tra kết quả trong mỗi trường hợp sau:- b là nửa cuối của a- b là một phần tử kể từ đầu trái của a- b là các phần tử chỉ số lẻ của ab. Cho a là ma trận (bảng số) hình vuông n x m các số thực. Hãy viết các câu lệnh (dùng lát cắt khi có thể) để in kết quả ra...

Đọc tiếp

#Tin học lớp 11

1

QT

Quoc Tran Anh Le

Giáo viên

9 tháng 11 2023

Toán tử lát cắt (hình 2) trích ra đoạn con liền mạch hay dãy con (có bước nhảy step cách quãng) từ một dãy tuần tự nhiều mục dữ liệu, ví dụ như một biến kiểu danh sách

Lưu ý: Nếu bước nhảy step nhận giá trị âm thì toán tử lát cắt sẽ đảo chiều, đi từ cuối danh sách lên đầu danh sách, từ phải sang trái, kết quả nhận được giống như dùng phương thức reverse() (xem ví dụ hình 3).

Đúng(0)

PG

Phạm Gia Bình

19 tháng 8 2021

- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử - In ra tất cả phần tử của mảng vừa nhập - In ra các phần tử tròn chục. - Đếm xem có tất cả bao nhiêu phần tử tròn chục. In ra tổng số phần tử tròn chục.

#Tin học lớp 8

1

NL

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

21 tháng 8 2021

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

readln;

dem:=0;

t:=0;

for i:=1 to n do

if a[i] mod 10=0 then

begin

write(a[i]:4);

inc(dem);

t:=t+a[i];

end;

writeln;

writeln(dem);

writeln(t);

readln;

end.

Đúng(0)

PG

Phạm Gia Bình

17 tháng 8 2021

Viết chương trình nhập 1 mảng số nguyên gồm n phần tử

- in ra các phần tử của mảng vừa nhập

- In ra các phần tử có giá trị chẵn

- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn

#Tin học lớp 9

1

AP

Anh Phạm

17 tháng 8 2021

uses crt;

var n,i,chan,tonchan:integer;

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

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

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

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.

Đúng(2)

K

Kem

1 tháng 10 2021

Sai roofi

Đúng(0)

TD

Tran dang khoa

24 tháng 7 2023

viết chương trình thực hiện các yêu cầu sau:nhập vào một mảng gồm n phần tử,hiển thị danh sách các phần tử trong mảngvừa nhập,sắp xếp danh sách các phần tử lẽ trong mảng theo thứ tự giảm dần,hiển thị danh sách các phần tử trong mảng vừa được sắp xếp

#Tin học lớp 10

1

TD

Tran dang khoa

24 tháng 7 2023

cứu em với mn còn 30p cuối thôi

Đúng(0)

NV

Nguyễn văn thanh

10 tháng 3 2023

Sử dụng Python Viết chương trình nhập vào danh sách a gồm 5số nguyên dương bất kì tính tổng các phần tử trong danh sách và in ra màn hình

#Tin học lớp 10

1

PS

Phía sau một cô gái

11 tháng 3 2023

a = []

sum = 0

n = 5

# Nhập danh sách a

for i in range(n):

x = int(input("Nhập phần tử thứ " + str(i+1) + ": "))

a.append(x)

# Tính tổng các phần tử trong danh sách a

for i in range(n):

sum += a[i]

# In ra màn hình tổng các phần tử trong danh sách a

print("Tổng các phần tử trong danh sách a là: ", sum)

Đúng(1)

VT

Vo Thi Kim Mỹy

28 tháng 4 2023

Viết chương trình tạo một danh sách mảng có thể chứa tối đa 100 phần tử, rồi nhập số lượng n phần tử vào danh sách vừa tạo, thực hiện tính tổng các phần tử chẵn, rồi in kết quả tổng ra màn hình.

#Tin học lớp 11

1

KV

Kiều Vũ Linh

29 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

Repeat

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

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

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

If a[i] mod 2 = 0 then s:=s+a[i];

End;

Write('Tong cac so chan la ',s);

Readln

End.

Đúng(1)

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