viết chương trình nhập n nguyên dương (n≤200). Tạo số ngẫu nhiên từ 10→100 cho mảng A có n phần tử. Nhập k. Tìm vị trí phẩn tử có giá trị bằng k. Sắp xếp mảng tăng dần.
giúp mình với ạ!!
Viết chương trình nhập vào số nguyên dương k, N (N≤1000), và các phần tử của mảng từ
A 1 ,…,A N là các số nguyên trong phạm vi từ ±5000. Tìm và xuất ra màn hinh
a) Có bao nhiêu phần tử có giá trị bằng k.
b) Vị trị của các phần tử có giá trị bằng k. Tính tổng các số có giá trị bằng k.
Var i,k,n,bk,tong: integer;
a: array[1..1000] of integer;
Begin
write('Nhap K: '); readln(k);
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
{câu a}
For i:=1 to n do
if a[i]=k then bk:=bk+1;
writeln('Co so phan tu bang k la:',k);
{câu b}
For i:=1 to n do
if a[i]=k then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('. Tong la:',tong);
readln
end.
uses crt;
var k,n,tong,d,i:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
write('k=');readln(k);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
d:=0;
for i:=1 to n do if(a[i]=k)then inc(d);
writeln('so phan tu bang voi:',k,' la:',d);
write('cac so co vi tri bang voi:',k,' la:');
tong:=0;
for i:=1 to n do if(a[i]=k)then
begin
write(i,' ');
tong:=tong+a[i];
end;
write('tong cua cac so bang voi:',k,' la:',tong);
readln;
end.
Cho dãy số A gồm N phần tử không sắp xếp theo thứ tự. Viết chương trình tính tổng các phẩn tử của dãy số, tìm phần tử có giá trị lớn nhất trong mảng, phẩn tử có giá trị nhỏ nhất trong mảng và vị trí xuất hiện của nó. Sắp xếp dãy số lại theo thứ tự tăng dần. Biết 0<N≤50.
uses crt;
var a:array[1..50]of int64;
i,n,t,max,min:int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
t:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
t:=t+a[i];
end;
writeln('Tong la: ',t);
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=max then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=min then write(i:4);
readln;
end.
Chương trình nhập mảng một chiều gồm n<=100 kiểu nguyên rồi thực hiện
a.đếm số lượng phần tử có trong mảng
b.tính tổng các phần tử dương có trong mảng
c.tính trung bình các phần tử dương trong mảng
d.tìm vị trí đầu tiên của k với k nhập từ bàn phím
e.đếm số lượng phần tử là số nguyên tố dương trong mảng
Mọi người làm gộp thành 1 bài ạ!
def dem_phan_tu(mang):
return len(mang)
def tinh_tong_duong(mang):
tong = 0
for num in mang:
if num > 0:
tong += num
return tong
def tinh_trung_binh_duong(mang):
tong = tinh_tong_duong(mang)
so_luong_duong = 0
for num in mang:
if num > 0:
so_luong_duong += 1
if so_luong_duong > 0:
trung_binh = tong / so_luong_duong
return trung_binh
else:
return 0
def tim_vi_tri_dau_tien(mang, k):
for i in range(len(mang)):
if mang[i] == k:
return i
return -1
def la_so_nguyen_to(n):
if n <= 1:
return False
for i in range(2, int(n**0.5) + 1):
if n % i == 0:
return False
return True
def dem_so_nguyen_to(mang):
count = 0
for num in mang:
if num > 0 and la_so_nguyen_to(num):
count += 1
return count
n = int(input("Nhập số phần tử của mảng: "))
mang = [ ]
for i in range(n):
num = int(input(f"Nhập phần tử thứ {i+1}: "))
mang.append(num)
print("Số lượng phần tử trong mảng là:", dem_phan_tu(mang))
print("Tổng các phần tử dương trong mảng là:", tinh_tong_duong(mang))
print("Trung bình các phần tử dương trong mảng là:", tinh_trung_binh_duong(mang))
k = int(input("Nhập giá trị k: "))
vi_tri_dau_tien = tim_vi_tri_dau_tien(mang, k)
if vi_tri_dau_tien != -1:
print(f"Vị trí đầu tiên của {k} trong mảng là:", vi_tri_dau_tien)
else:
print(f"{k} không có trong mảng.")
print("Số lượng phần tử là số nguyên tố dương trong mảng là:", dem_so_nguyen_to(mang))
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
Viết chương trình nhập vào 1 mảng số nguyên dương gồm có n phần tử (0 < n < 50) từ bàn phím. Sắp xếp lại mảng vừa nhập theo thứ tự giảm dần và lưu mảng sau khi đã sắp xếp vào tệp nhị phân.
Mọi ng giúp e với ạ
Viết chương trình nhập vào một mảng gồm n phần tử nguyên, hiển
thị mảng đã nhập ra màn hình, thực hiện sắp xếp mảng vừa nhập theo thứ tự tăng dần
bằng thuật toán sắp xếp chèn (Insert_sort). Sử dụng thuật toán tìm kiếm nhị phân để
tìm một phần tử k bất kỳ trong mảng, với k nhập từ bàn phím, hiển thị vị trí của k nếu
tìm thấy, và -1 nếu không tìm thấy k. (Viết bằng ngôn ngữ C++)
Viết chương trình nhập vào mảng a gồm n phần tử (n <40) n nhập từ bàn phím
Hãy in ra màn hình vị trí của phần tử có giá trị lớn nhất trong mảng nếu mảng có phần tử có cùng giá trị lớn nhất thì in ra màn hình của phần tử lớn nhất ở vị trí lớn nhất
#include <bits/stdc++.h>
using namespace std;
long long a[40],i,n,ln;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
{
cin>>a[i];
}
ln=a[1];
for (i=1; i<=n; i++) ln=max(ln,a[i]);
for (i=n; i>=1; i--)
if (ln==a[i])
{
cout<<i;
break;
}
return 0;
}
Viết chương trình nhập giá trị cho N phần tử của mảng số nguyên A1 A2 A3 ... AN và số nguyên K ; Đếm và tính tổng các phần tử của mảng A có giá trị chia hết cho K
- 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
- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.
- In ra các phần tử ở vị trí chẵn.
- In ra các phần tử ở vị trí lẻ.
Program HOC24;
var d,i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
d:=0;
for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri la uoc cua 10');
write('Cac phan tu o vi tri chan la: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
writeln;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do if i mod 2=1 then write(a[i],' ');
readln
end.