Cho dãy số nguyên a1,a2...An gồm n số nguyên hãy viết chương trình theo phương trình sau :
+ Tìm ước chung lớn nhất của các phần tử của dãy
+ Tìm bội chung nhỏ nhất của các phần tử của dãy
Lưu Ý : sử dụng ngôn ngữ lập trình pascal nha
_______________Phiền_các_bác_giải_bài_này_giúp_em_______________
Những câu hỏi liên quan
Viết chương trình, cho 1 dãy số nguyên gồm N phần tử (A1,A2,…,AN). Tìm ước chung lớn nhất của dãy số trên.
uses crt;
var i,n,a,b, uc,bcnn:integer ;
c:array[1..100] of integer;
{--- CTC tim UCLL hai so}
function ucln(a,b:integer):integer;
var r:integer;
begin
r:=a mod b;
while r<>0 do begin a:=b; b:=r; r:= a mod b; end;
ucln:=b;
end;
{--- CTC chinh----}
begin
Write('n= '); readln(n);
for i:=1 to n do
begin write('c[',i,']='); readln(c[i]); end;
for i:= 1 to n do Write(c[i]:3);writeln;
uc:=ucln(c[1], c[2]);
bcnn:=(c[1]*c[2])div uc;
for i:=3 to n do
begin
uc:=ucln(uc,c[i]);
bcnn:= bcnn*c[i] div uc;
end;
Writeln('bcnn =',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Giúp em vs
Bài 1:Viết chương trình nhập vào một dãy số thực gồm N số (N được nhập từ bàn phím và N <=100). Tính tổng tất cả các phần tử và tính giá trị trung bình của các phần tử đó.
Bài 2:Tìm phần tử nhỏ nhất của một dãy số nguyên dương A1, A2,...,AN với N được nhập từ
bàn phím và N<=100.
Bai 2:
uses crt;
var a:array[1..100]of integer;
i,n,t,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
for i:=1 to n do
if nn>a[i] then nn:=a[i];
write(nn);
readln;
end.
Đúng 0
Bình luận (0)
Viêy thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3, ...an có kiểu số thực. Tìm phần tử lớn nhất, nhỏ nhất của dãy A
Viết chương trình có sử dụng chương trình con để tìm ước chung lớn nhất của một dãy số a1, a2, ...,an.
uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
uc:=ucln(a[1],a[2]);
for i:=3 to n do
uc:=ucln(uc,a[i]);
writeln(uc);
readln;
end.
Đúng 0
Bình luận (0)
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n300, |ai| 40000).a. Tính tổng dãy số A.b. Tính tổng các số chia hết cho 3 có trong dãy số trên.c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.g. Tính tổng bình phương các số âm có trong dãy số trên.
Đọc tiếp
: Viết chương trình nhập vào một dãy số A gồm N số nguyên a1, a2,…,an (n<=300, |ai| <= 40000).
a. Tính tổng dãy số A.
b. Tính tổng các số chia hết cho 3 có trong dãy số trên.
c. Đếm số lượng số chẵn, lẻ có trong dãy số trên.
f. tìm phần tử lớn nhất, nhỏ nhất của dãy số.
g. Tính tổng bình phương các số âm có trong dãy số trên.
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn hình
Đọc tiếp
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Đúng 1
Bình luận (0)
em hãy viết chương trình nhập vào n số nguyên (0N688886)a1,a2,a3 ;...an(-9 tỷ tỷai+9 tỷ tỷ) vào từ bàn phím. in ra màn hình dãy số vừa nhập , số lớn nhất có trong dãy , vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên 1 dòng .ví dụ:nhập vào n 5;các phần tử a1 500; a2125 ; a3300;a425;a5500;kết quả trên màn hình là : 100 125 300 25 500 500 1 5 2Giup mình với
Đọc tiếp
em hãy viết chương trình nhập vào n số nguyên (0<N<688886)a1,a2,a3 ;...an(-9 tỷ tỷ<=ai<=+9 tỷ tỷ) vào từ bàn phím. in ra màn hình dãy số vừa nhập , số lớn nhất có trong dãy , vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên 1 dòng .ví dụ:nhập vào n = 5;các phần tử a1= 500; a2=125 ; a3=300;a4=25;a5=500;kết quả trên màn hình là : 100 125 300 25 500 500 1 5 2
Giup mình với
uses crt;
var a:array[1..100]of integer;
i,n,max,dem: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];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
write('Vi tri cua so lon nhat la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
dem:=0;
for i:=1 to n do
if max=a[i] then inc(dem);
writeln('So luong phan tu lon nhat trong day la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100000000] of int64;
n,i,d,max:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu: '); readln(n);
if (n<=0) and (n>688886) then writeln('NHAP LAI!');
until (n>0) and (n<=688886);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' ');
max:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
writeln;
writeln('So lon nhat: ',max);
write('Vi tri cua cac so lon nhat: ');
for i:=1 to n do if a[i]=max then begin write(i,' '); inc(d) end;
writeln;
writeln('So luong so lon nhat: ',d);
readln;
end.
Đúng 0
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ử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,ln,nn,vt1,vt2;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
ln=a[1];
nn=a[1];
for (i=1; i<=n; i++)
{
ln=max(ln,a[i]);
nn=min(nn,a[i]);
}
cout<<ln<<" "<<nn;
return 0;
}
Đúng 0
Bình luận (0)
Var n,i,vtl,vtn,so max,min:integer;
Begin
Write('Nhap so luong so = ');readln(n);
vtl:=0;
vtn:=0;
max:=-32768;
min:=32767;
For i:=1 to n do
Begin
Write('Nhap vao so thu ',i);readln(so);
If so > max then
Begin
Max:=so;
vtl:=i;
End;
If so < min then
Begin
Min:=so;
vtn:=i;
End;
Writeln('So lon nhat la ',max,' tai vi tri thu ',i);
Write('So nho nhat la ',min,' tai vi tri thu ',i);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số gồm n phần tử a1,a2...an tìm vị trí và in ra giá trị lớn nhất dãy số
Xem chi tiết
uses crt;
var a:array[1..200]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('Gia tri lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Uses crt;
var max,min,n,i,m,n: longint;
a: array[1..100] of longint
begin clrscr;
for i:=1 to n do begin
if(a[i] mod 2=0) then m:=m+a[i];
if(a[i] mod 2<>0) then n:=n+a[i];
end;
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('Tong cac phan tu chan: ',m);
Writeln('Tong cac phan tu le: ',n);
Writeln('Phan tu co gia tri lon nhat: ',max);
Writeln('Phan tu co gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)