1. Nhập vào 1 dãy số thực có 20 phần tử.a)Tìm phần tử đầu tiên trong dãy có giá trị bằng x (x nhập từ bàn phím) b)Tính tổng các số dương trong dãy c)Tính Tb( ) các số âm trong dãy 2. Nhập dãy số nguyê...

PV

Phan Văn Thái Dương

6 tháng 5 2022

1. Nhập vào 1 dãy số thực có 20 phần tử.a)Tìm phần tử đầu tiên trong dãy có giá trị bằng x (x nhập từ bàn phím) b)Tính tổng các số dương trong dãy c)Tính Tb(+) các số âm trong dãy 2. Nhập dãy số nguyên có n phần tử (n nhập)a) Hiển thị ra màn hình các phần tử chia hết cho 3b) Tìm trong dãy tất cả các bộ gồm 3 số dương vị trí liền kề nhau và có tổng chia hết cho 53. Nhập 1 xâu ký tự bàn phím:a) Đếm số lượng...

Đọc tiếp

#Tin học lớp 10

0

LN

Lộc Nguyễn

17 tháng 4 2023

Đề bài 1:nhập 1 dãy số nguyên từ bàn phím,tách và hiển thị dãy các số âm và dãy các số dương,đưa ra màn hình câu trả lời dãy nào có nhiều phần tử hơn.Đề bài 2:nhập 1 dãy số nguyên từ bàn phím,tìm kiếm phần tử có giá trị = giá trị m nhập từ bàn phím,phần tử đó có xuất hiện trong dãy số hay ko?Dùng python nhé mn.Mn giúp e vs...

Đọc tiếp

#Tin học lớp 10

0

ND

Nguyễn Đăng Khoa

7 tháng 4 2022

viết chương trình nhập 1 dãy só thực không quá 50 phần tử, đưa ra màn hình tổng các số dương trong dãy

chèn số X vào vị trí thứ K trong dãy(x,k nhập từ bàn phím)

Xóa tất cả các số dương có trong dãy

#Tin học lớp 8

1

NL

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

7 tháng 4 2022

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

cin>>a[i];

t=0;

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

if (a[i]>0) t+=a[i];

cout<<t<<endl;

cin>>x>>k;

a[0]=x;

sort(a[k],a[0]);

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

cout<<a[i]<<" ";

cout<<endl;

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

if (a[i]<=0) cout<<a[i]<<" ";

return 0;

}

Đúng(0)

HT

Hứa Thị Kim Diệu

20 tháng 12 2020

mn giúp em với ạ em cần gấp lập trình thực hiện các công việc sau : - nhập từ bàn phím dãy N số nguyên - đếm các phần tử chẵn trong dãy số - tìm trong dãy số một phần tử có giá trị bằng k ( k được nhập từ bàn phím)

#Tin học lớp 11

1

NL

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

21 tháng 12 2020

uses crt;

var n,i,k,dem:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do

if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.

Đúng(0)

HH

Huy Hoang Nguyen

8 tháng 4 2023

Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính...

Đọc tiếp

#Tin học lớp 8

0

L

Leoumax

22 tháng 2 2023

Giúp em vsBài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ bàn phím và...

Đọc tiếp

#Tin học lớp 11

1

NL

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

23 tháng 2 2023

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

if nn>a[i] then nn:=a[i];

write(nn);

readln;

end.

Đúng(0)

VT

Văn Tèo Trần

30 tháng 3 2023

Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy

#Tin học lớp 8

1

NH

Nguyễn Hoàng Duy

30 tháng 3 2023

program BaiTapMang;

var
n, i, max, min, s: longint;
a: array[1..100] of integer;

begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);

// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;

// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');

// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);

// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);

readln;
end.

Đúng(3)

VT

Văn Tèo Trần

5 tháng 4 2023

Có cách nào khác để làm nhanh hơn k

Đúng(0)

EB

Ẹih bw

4 tháng 5 2023 - olm

Cho 1 dãy số gồm n phần tử n<=15.Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: -Nhập từ bàn phím số phần tử và giá trị từng phần tử -Tính tổng các phần tử dương của dãy -Tính tổng và trung bình cộng của các phần tử lẻ của dãy -Tìm phần tử có giá trị lớn nhất của dãy -Tìm phần tử có giá trị nhỏ nhất -Sắp xếp dãy theo chiều tăng dần về giá trị của từng phần...

Đọc tiếp

#Tin học lớp 8

0

DN

Đỗ Nguyễn Thùy Lâm

4 tháng 5 2023

a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhậpb) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

5 tháng 5 2023

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

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b)

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

Đúng(0)

NM

Nguyễn Mỹ

5 tháng 4 2021

Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình ( làm giúp em lẹ ạ, mai e phải nộp rồi...

Đọc tiếp

#Tin học lớp 8

4

NA

nguyễn an phát

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

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

writeln('tong cua day la:');

readln;

end.

Đúng(0)

NL

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

5 tháng 4 2021

Câu 1:

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

Đú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