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 )
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 ( 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 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 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.
Đề 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 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)
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
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)
Viết phương trình tạo mảng A gồm n phần tử (n 100) Hãya. Tính và 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. Tính và in ra màn hình tổng các phần tử chẵn hoặc lẻ trong mảngc. In ra màn hình giá trị nhỏ nhất và vị trí của giá trị đó trong mảngd. Đếm số phần tử chia hết cho 5 có trong mảngGiúp mình với ạ, mình cảm ơn nhiều
Đọc tiếp
Viết phương trình tạo mảng A gồm n phần tử (n<= 100) Hãy
a. Tính và 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. Tính và in ra màn hình tổng các phần tử chẵn hoặc lẻ trong mảng
c. In ra màn hình giá trị nhỏ nhất và vị trí của giá trị đó trong mảng
d. Đếm số phần tử chia hết cho 5 có trong mảng
Giúp mình với ạ, mình cảm ơn nhiều
tham khảo'
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('So luong so chan la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
Var a:array[1..100] of integer;
i,n,dem,vt,s sc,sl,min:integer;
tbc:real;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do s:=s+a[i];
tbc:=s/n;
Writeln('Gia tri trung binh cua mang la ',tbc:10:2);
Write('Cac phan tu lon hon gia tri trung binh la ');
For i:=1 to n do
If a[i]>tbc then write(a[i],' ');
For i:=1 to n do
Begin
If a[i] mod 2 = 0 then sc:=sc+a[i]
Else sl:=sl+a[i];
End;
Writeln('Tong cac phan tu chan la ',sc);
Writeln('Tong cac phan tu le la ',sl);
min:=a[1];
For i:=2 to n do
Begin
If a[i] < min then min:=a[i];
vt:=i;
End;
Writeln('Phan tu nho nhat la ',min,' tai vi tri ',vt);
For i:=1 to n do
If a[i] mod 5 = 0 then dem:=dem+1;
Write('So cac phan tu chia het cho 5 la ',dem);
Readln;
End.
Đúng 1
Bình luận (0)