cho mảng A: array[3...11] giá trị của các phần tử lần lượt là 18,56,195,4,79,26,63,50,45.
a) viết lệnh và tính tổng các phân tử lẽ.
b) viết lẹnh và tính trung bình cộng của các phần tử chẵn
m.n làm ơn giúp em với ạ!!
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.
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.
C++ : Viết chương trình sử dụng chương trình con
VD: Cho mảng a có N phần tử ( N là số nguyên)
a) Nhập/ Xuất mảng
b) Tính tổng giá trị chẵn/ lẽ của các phần tử trong mảng
c) Đưa ra màn hình các giá trị chẵn/ lẽ trong mảng
d) Tính trung bình cộng các giá trị chẵn/ lẻ trong mảng e) Đưa ra giá trị nhỏ/ lớn nhất của mảng
Viet chuong trình khai báo một mảng các số nguyên không âm gồm 7 phân tử và thực hiện các công việc sau 1 Nhập giá tự cho các phần tử của mảng 2 in các phần tử của mảng lên màn hình 3 Tính tổng các phần tử của mảng 4 Tính trung bình các giá trị của mảng 5 Tìm giá trị Min của mảng 6 sắp xếp các phần tử của mảng theo chiều giảm dần.
program PSMCG;
uses crt;
const
size = 7;
var
arr: array[1..size] of integer;
i, sum, min, temp: integer;
avg: real;
begin
clrscr;
writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');
for i := 1 to size do
begin
readln(arr[i]);
end;
writeln('Cac phan tu trong day la: ');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to size do
begin
sum := sum + arr[i];
end;
writeln('Tong cac phan tu la: ', sum);
avg := sum / size;
writeln('Trung binh cac phan tu la: ', avg:0:2);
min := arr[1];
for i := 2 to size do
begin
if(arr[i] < min) then
begin
min := arr[i];
end;
end;
writeln('Gia tri nho nhat la: ', min);
for i := 1 to size - 1 do
begin
for j := i + 1 to size do
begin
if(arr[i] < arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
writeln('Cac phan tu da sap xep theo thu tu giam dan:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
readln;
end.
Lập trình pascal nhập vào mảng a gồm n phần tử (n nhập từ bàn phím)
1. Khai báo và nhập mảng
2. Tính tổng các phần tử của mảng
3. Đếm và in ra các phần tử có giá trị bằng 5
4. Tính trung bình cộng cách phần tử là số lẻ
5. Tìm những phần tử mang giá trị 0 thay bằng giá trị 10 rồi in lại mảng
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
d:=0;
for i:=1 to n do if a[i]=5 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri bang 5');
tbc:=0;
for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];
tbc:=tbc/n;
writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);
write('Mang sau khi thay la: ');
for i:=1 to n do if a[i]=0 then a[i]:=10;
for i:=1 to n do write(a[i],' ');
readln
end.
Theo pascal ạ!! giúp em nha <3 cảm ơn rất nhiều ạ
1. viết chương trình con nhập và xuất một dãy (mảng)số nguyên có n phần tử
2. nhập số k. Tính trung bình cộng của các phần tử trong dãy có giá trị nhỏ hơn hay bằng k
3. xuất và đếm các phần tử là số nguyên tố có trong dãy
Câu 1:
program mangsonguyen;
var
a: array[1..100] of integer;
i, n: integer;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.
Câu 2:
program trungbinhcong;
var
a: array[1..100] of integer;
i, n, k, sum: integer;
avg: real;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Nhap so k: ');
readln(k);
sum := 0;
for i := 1 to n do
begin
if a[i] <= k then
sum := sum + a[i];
end;
if sum > 0 then
begin
avg := sum / n;
writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);
end
else
begin
writeln('Khong co phan tu nao co gia tri <= ', k);
end;
end.
Câu 3:
program DemSoNguyenTo;
var
a: array [1..100] of integer;
i, j, n, count: integer;
laSoNguyenTo: boolean;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
write('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
count := 0;
writeln('Cac so nguyen to trong mang la: ');
for i := 1 to n do
begin
laSoNguyenTo := true;
for j := 2 to (a[i] div 2) do
begin
if (a[i] mod j = 0) then
begin
laSoNguyenTo := false;
break;
end;
end;
if laSoNguyenTo and (a[i] > 1) then
begin
writeln(a[i]);
count := count + 1;
end;
end;
writeln('Tong so cac so nguyen to la: ', count);
readln;
end.
Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:
1. Hiển thị dãy vừa nhập trên 1 hang.
2. Tính tổng các phần tử trong mảng.
3. Tính trung bình cộng các phần tử trong mảng.
4. Tính tổng các số âm và số dương trong mảng.
5. Tính tổng các số chẵn và số lẻ trong mảng.
6. Đếm các số âm, số dương, số chẵn, số lẻ trong mảng.
program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
A | 17 | 13 | 20 | 10 | 15 |
I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng các phần tử mảng
var a:array[1..1000] of integer;
n,i: integer;
tb: real;
begin
write('Nhap N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
for i:=1 to n do
if a[i] > tb then writeln(a[i]);
readln
end.
Viết chương trình nhập vào mảng A gồm N ( n<=100 )số nguyên. Thực hiện yêu cầu sau. ( 5 điểm ).
a.Tính trung bình cộng các phần tử chia hết cho 3 VÀ 5 trong mảng ( 2 điểm )
b. In ra các phần tử chia hết cho M trong mảng và tính tổng các phần tử chia hết cho M, với M được nhập từ bản phím ( 3 điểm )
Lưu ý: Chương trình chạy được, trình bày tốt về cản lề, xử lý yêu cầu bài toán và in kết quả đúng 1 điểm).
# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))
# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
if num % 3 == 0 and num % 5 == 0:
sum_35 += num
count_35 += 1
if count_35 > 0:
tb_35 = sum_35 / count_35
print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")
# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
if num % M == 0:
print(num, end=" ")
sum_M += num
count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)
Viết chương trình nhập vào một mảng 10 phần tử kiểu Nguyên a) tính và xuất ra màn hình tổng các phần tử lẻ trong mảng b) nén và xuất ra ngoài màn hình số phần tử Dương trong mảng c) tính và xuất ra màn hình trung bình cộng các phần tử trong mảng d) tìm và xuất ra màn hình giá trị và vị trí của các phần tử nhỏ nhất trong mảng
# Nhap mang
arr = [ ]
for i in range(10):
arr.append(int(input('Nhap phan tu: ')))
# Tinh va xuat ra tong cac phan tu le trong mang tong_cac_phan_tu_le = 0
for x in arr:
if x % 2 != 0:
tong_cac_phan_tu_le += x
print('Tong cac phan tu le trong mang la:', tong_cac_phan_tu_le)
# Nen va xuat ra ngoai man hinh so phan tu duong trong mang so_phan_tu_duong = 0
for x in arr:
if x > 0:
so_phan_tu_duong += 1
print('So phan tu duong trong mang la:', so_phan_tu_duong)
# Tinh va xuat ra man hinh trung binh cong cac phan tu trong mang tong_phan_tu = 0
for x in arr:
tong_phan_tu += x
trung_binh_cong = tong_phan_tu / len(arr)
print('Trung binh cong cac phan tu trong mang la:',trung_binh_cong)
# Tim va xuat ra man hinh gia tri va vi tri cua cac phan tu nho nhat trong mang
min_phan_tu = arr[0]
vi_tri_min_phan_tu = 0
for i in range(1, len(arr)):
if min_phan_tu > arr[i]:
min_phan_tu = arr[i]
vi_tri_min_phan_tu = i
print('Gia tri cua phan tu nho nhat trong mang la:', min_phan_tu)
print('Vi tri cua phan tu nho nhat trong mang la:', vi_tri_min_phan_tu)