Những câu hỏi liên quan
Hứa Tiến Mạnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 22:35
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.
Bình luận (0)
hoàng văn thịnh
Xem chi tiết
Phía sau một cô gái
26 tháng 7 2023 lúc 21:23

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)

Bình luận (0)
Trần Nguyễn Huỳnh
Xem chi tiết
Bùi Anh Tuấn
7 tháng 3 2021 lúc 21:13

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 22:06

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.

Bình luận (0)
Trương Đức Tấn
Xem chi tiết
datfsss
1 tháng 4 2021 lúc 21:32

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.

Bình luận (1)
Trần Minh Tâm
1 tháng 4 2021 lúc 21:35

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
1 tháng 4 2021 lúc 22:37

uses crt;

var a:array[1..100]of integer;

i,n,max,min: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];

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('So lon nhat la: ',max);

writeln('So be nhat la: ',min);

readln;

end.

Bình luận (0)
Nguyễn Thái Phương Thảo
Xem chi tiết
Minh Đông
Xem chi tiết
Hoàng Long Đậu
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:03

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

Bình luận (0)

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

Bình luận (0)
Nguyễn Anh Quân
Xem chi tiết
Uyen
Xem chi tiết
nguyễn an phát
12 tháng 5 2021 lúc 14:30

program nhap_tinhtong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n:integer;

{---Nhap---}

procedure nhap;

var i:integer;

begin

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

              end;

end;

{---Tinh-tong---}

function tinh_tong(A:kmang; n:integer):integer;

var t,i:integer;

begin

       t:=0;

       for i:=1 to n do

              t:=t+A[i];

       tinh_tong:=t;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       nhap;

       write('Tong cac phan tu la: ',tinh_tong(A,n));

       readln;

end.

Bình luận (0)
nguyễn an phát
12 tháng 5 2021 lúc 14:31

program nhap_tinhtong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n:integer;

{---Nhap---}

procedure nhap;

var i:integer;

begin

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

              end;

end;

{---Tinh-tong---}

function tinh_tong(A:kmang; n:integer):integer;

var t,i:integer;

begin

       t:=0;

       for i:=1 to n do

              t:=t+A[i];

       tinh_tong:=t;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       nhap;

       write('Tong cac phan tu la: ',tinh_tong(A,n));

       readln;

end.

Bình luận (0)