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
dswat monkey
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 9:36

c: 

#include <bits/stdc++.h>

using namespace std;

long long ln,i,n,x;

int main()

{

cin>>n;

ln=LLONG_MIN;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

Ngọc hà
Xem chi tiết
Nhung
23 tháng 5 2022 lúc 22:38

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

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

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

Hứa Thị Kim Diệu
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2020 lúc 13:04

uses crt;

var n,i,k,dem:integer;

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.

boymezu
Xem chi tiết
Minh Lệ
3 tháng 5 2023 lúc 18:41

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Trần Hà Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:07

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.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:02

uses crt;
var a:array[1..1000000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Cac so chan: ');
      for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
      readln;
end.

Huyền Diệu Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 0:49

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

Huỳnh Tiến Thiên
Xem chi tiết
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.

Leoumax
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2023 lúc 20:54

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.