Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Phan Bảo Tin
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:17

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.

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:18

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.

Trung Kien
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 21:42

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.

Nguyễn Phương
24 tháng 3 2021 lúc 23:42

sao bài này giống bài tập cô mình giao thế nhỉ:>

 

Lâm Thảo Như
5 tháng 5 2021 lúc 19:14

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.

Cuong Ly
Xem chi tiết
Nguyễn Tuấn Anh
4 tháng 5 2021 lúc 9:36

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 11:48

uses crt;

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

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

readln;

end.

xansvirus505
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:38

uses crt;

var ln,x,i,n:integer;

begin

clrscr;

ln:=MAXINT;

readln(n);

for i:=1 to n do

begin

readln(x);

if ln<x then ln:=x;

end;

write(ln);

readln;

end.

Long Châu
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:34

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>5) dem++;

}

cout<<dem;

return 0;

}

YG_Ziintanz Min
Xem chi tiết
Vũ Thị Diệp Chi
Xem chi tiết

a, Khoảng cách 2 số hạng liên tiếp: 4 - 2 = 6 - 4 = 8 - 6 = 10 - 8 = 12 - 10 = 2

Số hạng thứ 2014 là: (2014 - 1 ) x 2 + 2 = 2013 x 2 + 2 = 4028

b, Hai số hạng liên tiếp có hiệu là 1 đơn vị

Số bé là: (2015 - 1):2= 1007

Số lớn là: 1007 +1 =1008

Đ.số:......

Citii?
7 tháng 1 lúc 10:00

Khoảng cách giữa 2 số hạng liên tiếp cách nhau:

\(4-2=2\)(đơn vị)

Vậy số hạng thứ 2014 cần tìm là:

\(\left(2014-1\right)\times2+2=4028\)

Đáp số: 4028

\(-------------\)

2 số tự nhiên liên tiếp cần tìm có tổng bằng 2015 là: \(1007\left(và\right)1008\)

Lê Việt Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 17:26

uses crt;

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

    i,n,t,max,kq,j:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

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

  end;

max:=0;

for i:=1 to n do

  begin

     t:=0;

     for j:=1 to a[i] do

       if a[i] mod j=0 then t:=t+j;

     if max<=t then

        begin

           max:=t;

           kq:=a[i];

        end;

  end;

writeln('So co tong cac uoc lon nhat trong day la: ',kq);

readln;

end.

Ngô Anh Tuấn
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 8 2023 lúc 9:59

#include <bits/stdc++.h>

using namespace std;

int A[100],B[100],C[100],kt,n,nn,dem1=0, dem2=0;

int main()

{

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

kt=0;   

nn=INT_MAX;   

for (int i=1; i<=n; i++)     

if (A[i]%2!=0)     

{     

kt=1;     

if (nn>=A[i]) nn=A[i];   

  } 

  if (kt==0) cout<<"khong co";   

else cout<<nn;   

cout<<endl;   

for (int i=1; i<=n; i++)     

if (A[i]%2==0 && A[i]>7)     

cout<<A[i]<<" ";   

cout<<endl;   

for (int i=1; i<=n; i++)     

if (A[i]%2!=0)     

{     

dem1++;     

B[dem1]=A[i];     

}   

for (int i=1; i<=n; i++)   

if (A[i]%2==0)   

{   

dem2++;   

C[dem2]=A[i];   

}   

sort(B,B+dem1+1);   

sort(C,C+dem2+1);   

for (int i=dem1; i>=1; i--)     

cout<<B[i]<<" ";   

for (int i=1; i<=dem2; i++)     

cout<<C[i]<<" ";

}