Những câu hỏi liên quan
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 22:42

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,ln,t;

int main()

{

cin>>n;

ln=LLONG_MIN;

t=0;

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

{

cin>>x;

ln=max(ln,x);

t+=x;

}

cout<<"So lon nhat la: "<<ln<<endl;

cout<<"Tong la: "<<t;

return 0;

}

Bình luận (0)
Tuoi tom May
Xem chi tiết
Phía sau một cô gái
4 tháng 5 2023 lúc 20:40

program TimMinMaxTrungBinh;

var

      N, i, max, min, sum: integer;

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

      TB, minTB, maxTB: real;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      sum := 0;

      for i := 1 to N do

      begin

            write('Nhap so thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      max := a[1];

      min := a[1];

      for i := 2 to N do

      begin

            if a[i] > max then

                  max := a[i];

            if a[i] < min then

                  min := a[i];

      end;

      TB := sum / N;

      minTB := TB;

      maxTB := TB;

      for i := 1 to N do

      begin

            if (a[i] < TB) and (a[i] < minTB) then

                  minTB := a[i];

            if (a[i] > TB) and (a[i] > maxTB) then

                  maxTB := a[i];

      end;

      writeln('Gia tri lon nhat la: ', max);

      writeln('Gia tri nho nhat la: ', min);

      writeln('Gia tri trung binh la: ', TB:2:2);

      if minTB = TB then

            writeln('Khong co gia tri nao nho hon TB')

      else

            writeln('Gia tri nho nhat < TB la: ', minTB);

      if maxTB = TB then

            writeln('Khong co gia tri nao lon hon TB')

      else

            writeln('Gia tri lon nhat > TB la: ', maxTB);

      readln;

end.

 
  
Bình luận (0)
Ái Cầm Trần
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 22:41

uses crt;

var x,s,min:real;

i,n:integer;

begin

clrscr;

readln(n);

min:=-32000;

s:=1;

for i:=1 to n do 

begin

readln(x);

if min>x then min:=x;

s:=s*x;

end;

writeln('Nho nhat la: ',min:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Bình luận (0)
Yết Thiên
Xem chi tiết
Trúc Giang
12 tháng 5 2021 lúc 9:55

Câu 2:

Program nii;

Uses crt;

Var a,b,c,A:integer;

Begin

Write ('nhap a');

Readln (a);

Write ('nhap b');

Readln (b);

Write ('nhap c');

Readln (c);

A:=a;

If A<b then A:=b;

If A<c then A:=c;

Write ('Ket qua',A);

Readln;

End.

Bình luận (0)
Trúc Giang
12 tháng 5 2021 lúc 9:51

Câu 1

Program ntg;

Uses crt;

Var A,x,y:integer;

Begin

Write ('nhap x');

Readln (x);

Write ('nhap y');

Readln ('y');

A:=x+y;

Write ('Ket qua',A);

Readln;

End.

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:43

Câu 2: 

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('So lon nhat trong 3 so la: ',max);

readln;

end.

Bình luận (1)
Hiếu Phùng Mạnh
Xem chi tiết
Minh Lệ
2 tháng 5 2023 lúc 20:30

Program HOC24;

var min,max,i,n: integer;

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

begin

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:=2 to n do

begin

if a[i]> max then max:=a[i];

if a[i]<min then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max); 

write('Gia tri nho nhat la: ',min);

readln

end.

Bình luận (0)
 ohsusu
Xem chi tiết
Minh Lệ
30 tháng 4 2021 lúc 16:32

Program HOC24;

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

i,max,,n: integer;

begin

write('Nhap so phan tu 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 a[i]<max then max:=a[i];

write('So lon nhat la: ',max);

readln

end.

Bình luận (0)
Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:00

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

Bình luận (0)
Quỳnh như
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 10 2021 lúc 15:17

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<max(a,b);

return 0;

}

Bình luận (0)
Biên Vi
Xem chi tiết
Cherry
5 tháng 4 2021 lúc 13:00

Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình  phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh

Bạn tham khảo nhé!

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

uses crt;

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

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (0)