K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac so la boi cua 3 la: ',t);

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

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

readln;

end.

8 tháng 6 2017

với mọi số nguyên n , ta có n \(\le\)n2

Do đó từ đề bài suy ra :

a2 \(\le\)\(\le\)b2 \(\le\)\(\le\)c2 \(\le\)\(\le\)a2

Do đó : a2 = b = b2 = c = c2  = a = a2

Ta có : a2 = a \(\Leftrightarrow\)a . ( a - 1 ) = 0 \(\Leftrightarrow\)\(\in\){ 0 ; 1 } 

Tương tự : b \(\in\){ 0 ; 1 } , c \(\in\){ 0 ; 1 }

Vậy bài toán có hai đáp số : 

a = b = c = 0 và a = b = c = 1

8 tháng 6 2017

Ta có : \(a^2\le b;b^2\le c;c^2\le a\)

Suy ra : \(a^2+b^2+c^2\le a+b+c\)

Mà số nào bình phương lên cũng lớn hơn số ban đầu 

Nên a; b ; c chỉ có thể bằng 0 hoặc 1 

25 tháng 1 2017

k minh minh giai cho

15 tháng 1 2018

Tìm Min thì còn tìm dc chứ Tìm max khó lắm ::::V

2 tháng 3 2018

ko hiểu pain nói j quên đây lp 8