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
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 số nguyên tố
Giúp mik vs ạ cần gấp lắm!
Program HOC24;
var i,n: integer;
a: array[1..1000] of integer;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
begin
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 if nt(a[i]) then write(a[i],' ');
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử. in ra phần tử là số chính phương nhỏ nhất trong dãy.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,x;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++)
{
int x=sqrt(a[i]);
if (x*x==a[i])
{
cout<<x;
return 0;
}
}
cout<<"Ko co so chinh phuong trong day";
return 0;
}
Đúng 0
Bình luận (1)
uses crt;
var x，i，max，n，dem，dem1，dem2，dem3，t，t1:integer;
a，b，c，d，e:array[-32000..32000]of integer;
tbca，tbcd:real;
begin
clrscr;
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘，i，’]=’); readln(a[i]);
inc(b[a[i]]);
end;
{———————————-cau-a—————————-}
max:=0;
for i:=1 to n do
if max<b[a[i]] then
begin
max:=b[a[i]];
x:=a[i];
end;
writeln(‘phan tu co so lan xuat hien nhieu nhat trong mang la: ‘，x);
{——————————–cau-b——————————-}
dem:=0;
for i:=1 to n do
if a[i]>=0 then
begin
dem:=dem+1;
c[dem]:=a[i];
end;
dem1:=0;
for i:=1 to dem do
if trunc(sqrt(c[i]))=sqrt(c[i]) then inc(dem1);
writeln(‘so luong so chinh phuong trong day la: ‘，dem1);
{——————————–cau-c—————————–}
dem2:=0;
dem3:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
inc(dem2);
d[dem2]:=a[i];
end;
if a[i]<0 then
begin
inc(dem3);
e[dem3]:=a[i];
end;
end;
t:=0;
t1:=0;
for i:=1 to dem2 do
t:=t+d[i];
tbcd:=t/dem2;
for i:=1 to dem3 do
t1:=t1+e[i];
tbca:=t1/dem3;
writeln(‘trung binh cong cac so am la: ‘，tbca:4:2);
writeln(‘trung binh cong cac so duong la: ‘，tbcd:4:2);
readln;
end.
Đúng 1
Bình luận (0)
2. Viết CT nhập vào dãy số nguyên có n phần tử. In ra vị trí các phần tử âm.
3. Viết CT nhập vào dãy số tự nhiên có n phần tử. In ra giá trị các phần tử ở vị trí lẻ.
4. Tìm phần tử lớn nhất và nhỏ nhất trong 1 dãy phần tử.
2:
uses crt;
var a:array[1..100]of integer;
n,i: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
if a[i]<0 then write(i:4);
readln;
end.
Đúng 1
Bình luận (2)
sao bài này giống bài tập cô mình giao thế nhỉ:>
Đúng 2
Bình luận (0)
4
var max,min,n,i: integer;
a:array [1..100] of integer;
begin
write('nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
write('so lon nhat trong day la: ',max);writeln;
write('so nho nhat trong day la: ',min);writeln;
readln;
end.
Đúng 2
Bình luận (0)
Viết CT nhập dãy số nguyên A gồm n phần tử (n<=100) . Tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong dãy
Var so,n,i:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If (so mod 3 = 0) and (so mod 5 = 0) then
s:=s+so;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào bàn phím một dãy số nguyên gồm n phần tử a.Tính tổng các phương trình có giá trị lẻ b.In ra các số chính phương trong dãy c.In ra các số nguyên tố trong dãy d.Sắp xếp dãy theo thứ tự tăng dần e.Kiểm tra dãy số trên có lập trình cấp số cộng hay không?
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết ct nhập giá trị cho một dãy số nguyên có n phần tử a. In dãy vừa nhập b. Tính tổng các số trong dãy in kết quả nhận được ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n: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
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n: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
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t: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
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
viết ct nhập một mảng số nguyên gôm n phần tử.In ra các phần tử chia hết cho x và tính trung bình các phần tử đó
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)