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
Ánh sao
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:15

Câu 1: 

uses crt;

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

max,i:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

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

end;

max:=a[1];

for i:=1 to 5 do 

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

writeln(max);

readln;

end.

Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:16

Câu 2: 

uses crt;

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

min,i:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

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

end;

min:=a[1];

for i:=1 to 6 do 

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

writeln(min);

readln;

end.

Chanh
Xem chi tiết
Cuppy Cake
Xem chi tiết
huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 7:47

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,ln;

int main()

{

cin>>a>>b>>c;

ln=a;

ln=max(ln,b);

ln=max(ln,c);

cout<<ln;

return 0;

}

Minh Khôi
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 19:19

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn,t;

int main()

{

cin>>n;

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

t=0;

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

ln=a[1];

nn=a[1];

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

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<t<<endl;

cout<<ln<<" "<<nn;

return 0;

}

Kiều Vũ Linh
12 tháng 5 2022 lúc 20:25

Var a:array[1..200] of integer;

i,n,s,max,min:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

s:=a[1];

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

s:=s+a[i];

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

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

End;

Writeln('Tong la ',s);

Writeln('So lon nhat la ',max);

Write('So nho nhat la ',min);

Readln;

End.

Nguyễn Hồ Hoàng Anh
Xem chi tiết
Kiều Vũ Linh
6 tháng 5 2023 lúc 12:15

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

i,max:integer;

Begin

For i:=1 to  100 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to n do

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

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

Readln

End.

HT.Phong (9A5)
6 tháng 5 2023 lúc 11:21

Uses crt;

var i,n,max; longint;

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

begin clrscr;

readln(n);

for i:=1 to n do read(n); readln;

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

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

readln;

end.

Kiều Vũ Linh
6 tháng 5 2023 lúc 12:16

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

i,max:integer;

Begin

For i:=1 to  100 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to 100 do

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

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

Readln

End.

Hoàng Văn Xanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:32

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.

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.

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.

 

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.

Nguyễn Ngọc Quỳnh Trang
Xem chi tiết