1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3.xóa hoặc chèn phần tử ( mảng một chiều)
4. tìm một phần tử K ( trong mảng một chiều )
Những câu hỏi liên quan
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3. xóa hoặc chèn phần tử ( mảng mọt chiều )
4. tìm một phần tử K bất kì ( trong mảng một chiều )
m.n giúp e với ạ
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3.xóa hoặc chèn phần tử ( mảng một chiều)
4. tìm một phần tử K ( trong mảng một chiều )
cau 1)
rogram bai_tap;
uses crt;
var n,i:byte;
a:array[1..100] of real;
tb,s:real;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
s:=0;
for i:= 1 to n do
s:=s+a[i];
tb:= s/n;
write('so trung binh: ',tb:4:2);
readln
end;
Đúng 0
Bình luận (0)
cau3)
program bai_tap;
uses crt;
var n,i:byte;
b,chen:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri can chen: ');
readln(chen);
write('nhap vi tri can chen: ');
readln(b);
for i:= n+1 downto b+1 do
a[i]:=a[i-1];
a[b]:=chen;
for i:= 1 to n+1 do
write(a[i]:4);
readln
end.
xóa cũng tương tụ kiểu như vậy
Đúng 0
Bình luận (0)
câu 4)
program bai_tap;
uses crt;
var n,i:byte;
k:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri phan tu K: ');
readln(K);
for i:= 1 to n do
if a[i] = k then
begin
write('vi tri cua K la: ',i);
break; {vì tìm 1 phần tử}
end;
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình nhập vào một mảng;
a. Viết hàm tìm vị trí phần tử lớn nhất trong mảng vừa nhập.
b. Viết hàm chèn phần tử có giá trị X vào phía sau phần tử có giá trị lớn nhất trong mảng.
c. In ra mảng sau khi chèn phần tử X
Lấy một ví dụ giải thích cho ý a., ý b.
Viết CT thực hiện các yêu cầu sau :
- Nhập các phần tử của mảng.
- In các phần tử của mảng.
- Tìm giá trị lớn nhất.
- Tìm giá trị nhỏ nhất.
- Tính tổng các phần tử dương hoặc âm.
uses crt;
var a:array[1..100]of integer;
i,n,max,min,t: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);
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(max);
writeln(min);
readln;
end.
t:=0;
for i:=1 to n do
if a[i]<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình thực hiện các yêu cầu sau: 1) Nhập một mảng A có N phần tử; 2) In mảng A đã nhập ra màn hình; 3) Tìm giá trị lớn nhất (nhỏ nhất) của mảng A; 4) Tính tổng mảng A.
Đọc tiếp
Viết chương trình thực hiện các yêu cầu sau:
1) Nhập một mảng A có N phần tử;
2) In mảng A đã nhập ra màn hình;
3) Tìm giá trị lớn nhất (nhỏ nhất) của mảng A;
4) Tính tổng mảng A.
program PSMCG;
uses crt;
const N = 5;
type MangA = array[1..N] of integer;
var A: MangA;
i, max, min, sum: integer;
begin
for i := 1 to N do
begin
write('Nhap phan tu A[', i, ']: ');
readln(A[i]);
end;
writeln('Mang A: ');
for i := 1 to N do
begin
write(A[i], ' ');
end;
writeln;
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('Gia tri lon nhat la: ', max);
writeln('Gia tri nho nhat la: ', min);
sum := 0;
for i := 1 to N do
begin
sum := sum + A[i];
end;
writeln('Tong gia tri trong mang A la: ', sum);
readln;
end.
Đúng 1
Bình luận (0)
Đề 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
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
Bình luận (2)
viết chương trình
a, nhập mảng 1 chiều k gồm 10 phần tử từ k1,k2,...,k10
b, in mảng vừa nhập
c,tính giá trị trung bình các phần tử trong mảng
Cho mảng một chiều có 100 phần tử, các phần tử có kiểu số thực, và số nguyên K a/ Đếm các phần tử có giá trị bằng K b/ Tính tổng các phần tử dương và âm của mảng
#include <bits/stdc++.h>
using namespace std;
double a[100],t1,t2,k;
int i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>k;
dem=0;
for (i=1; i<=n; i++) if (a[i]==k) dem++;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
if (a[i]>0) t1+=a[i];
else t2+=a[i];
}
cout<<dem<<endll;
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((
Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,tbc:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
Đúng 0
Bình luận (0)
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
Đúng 0
Bình luận (0)