Viết chương trình tìm số lớn nhất trong dãy A các số a1,a2,...an cho trước.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
13 tháng 12 2020
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.
NN
1
23 tháng 12 2020
Bước 1: Nhập n và nhập dãy số
Bước 2: ln←0; i←1
Bước 3: Nếu ln<a[i] thì ln←a[i];
Bước 4: i←i+1;
Bước 5: Nếu i<=n thì quay lại bước 3
Bước 6: Xuất ln
Bước 7: Kết thúc
4 tháng 5 2021
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.
26 tháng 7 2023
n = int(input("Nhap so phan tu cua day: "))
a = [ ]
for i in range(n):
a.append(int(input("Nhap phan tu thu " + str(i+1) + ": ")))
max_value = a[0]
max_index = 0
for i in range(1, n):
if a[i] > max_value:
max_value = a[i]
max_index = i
print("Gia tri lon nhat trong day la:", max_value, "tai vi tri", max_index+1)
7 tháng 3 2021
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.
D
1 tháng 4 2021
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.
1 tháng 4 2021
var i,n,min,max:integer;
a:array[1..1000] of integer;
begin
Write('n=');read(n);
for i:=1 to n do
Read(a[i]);
i:=1;
max:=0;
min:=a[i];
while i<n do
Begin
if a[i] > max then max:=a[i];
if a[i] <min then min:=a[i];
i:=i+1;
end;
writeln('Gia tri LN la:',max);
writeln('Gia tri NN la:',min);
readln;
end.
GB
26 tháng 3 2023
n = int(input("Nhập n: "))
a = [ ]
for i in range(n):
a.append(int(input(f"Nhập phần tử a[{i}]: ")))
k = int(input("Nhập k: "))
count_greater = 0
count_divisible_by_three = 0
for num in a:
if num > k:
count_greater += 1
if sum(int(digit) for digit in str(num)) % 3 == 0:
count_divisible_by_three += 1
print(f"Số lớn hơn {k}: {count_greater} số")
print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")
LH
9 tháng 1 2021
#include <iostream>
#include <fstream>
using namespace std;
ifstream input("D:/input.txt");
ofstream output("D:/ouput.txt");
int main()
{
int A[1000];
int n ,dem=0;
input >> n;
for(int i=0;i<n;i++)
input >> A[i];
for(int i=0;i<n;i++)
if(A[i]<0)
dem +=A[i];
output << dem;
return 0;
}
9 tháng 1 2021
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]<0 then t:=t+a[i];
writeln('Tong cac so nguyen am la: ',t);
readln;
end.
17 tháng 5 2021
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.
7 tháng 6 2021
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.
bài này dễ ẹt à
uses crt;
var a:array[1..100]of integer;
i,n,ln:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------xuat-day---------------------}
for i:=1 to n do
write(a[i]:4);
{-------------------xu-ly-------------------------}
writeln;
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat la: ',ln);
readln;
end.
thank you