Viết ct nhập một dãy số nguyên a gồm n phần tử.in ra số nguyên tố
Giúp mik vs ạ cần gấp lắm!
PC
Những câu hỏi liên quan
Viết ct nhập một dãy số nguyên a gồm n phần tử.in ra các phần tử chính phương
trong dãy đó, bạn có thể sử dụng ngôn ngữ lập trình Python như sau:
```python
n = int(input("Nhập số phần tử của
dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ
{}: ".format(i+1))))
print("Các số nguyên tố trong dãy
là:")
for num in a:
if num > 1:
for i in range(2, int(num/2)+1):
if (num % i) == 0:
break
else:
print(num\()\) '''
# Ninh OSS
Đúng 2
Bình luận (0)
Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
a)
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Viết CT nhập vào một dãy số nguyên gồm n phần tử .Tính tổng các phân tử chia hết cho k(k khác 0) được nhập từ bàn phím. Mk cần gấp ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,k,t=0,x;
cin>>n>>k;
for (int i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,k,t=0,x;
cin>>n>>k;
for (int i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t=t+x;
}
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập N phần tử có giá trị nguyên
a)in dãy số vừa nhập
b) tính tổng số lẻ trong dãy số
c) sắp xếp lại dãy số tăng dần
giúp mil vs ạ! mik đang cần gấp, cảm ơn!
viết chương trình nhập vào 1 mảng số nguyên gồm 10 phần tử xuất ra màn hình phần tử số 3 . Lm ơn giúp mik vs ạ mik cần gấp xin cảm ơn😭
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,t: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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (1)
Câu 1:
Program Tin_hoc;
Uses crt;
Var i,n,tong:integer;
tb:real;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
tong:=0;
Writeln('Nhap ',n,' phan tu cua day:');
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
tong:=tong+a[i];
end;
tb:=tong/n;
Writeln('Gia tri trung binh cua day la: ',tb:0:4);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Câu 1:Nhập vào mảng a gồm n phần tử là số nguyên(n nhập từ bàn phím).
Câu 2: In ra dãy vừa nhập
Câu 3: In ra các số lẻ
Câu 4: Tính tổng các số vừa nhập
Câu 5: Tính trung bình cộng các số vừa nhập
mk cần gấp lắm ạ,làm ơn giúp mk:(((
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i] mod 2<>0) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Nhập một mảng số nguyên gồm n phần tử.In kết quả ra màn hình các số palindrome (pascal)
uses crt;
var a:array[1..100]of integer;
i,n,d,j,kt:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
str(a[i],st);
d:=length(st);
kt:=0;
for j:=1 to d do
if st[j]<>st[d-j+1] then kt:=1;
if kt=0 then write(st:4);
end;
readln;
end.
Đúng 1
Bình luận (0)