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.

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

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

a² \(\le\)b \(\le\)b² \(\le\)c \(\le\)c² \(\le\)a \(\le\)a²

Do đó : a² = b = b² = c = c²  = a = a²

Ta có : a² = a \(\Leftrightarrow\)a . ( a - 1 ) = 0 \(\Leftrightarrow\)a \(\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

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 

Ta có: x \(\le\)x² với mọi x \(\in\)Z   (*)

Thật vậy:

* Với x \(\in\)N*, ta có x > 0, x - 1 \(\ge\)0

Do đó x(x - 1) \(\ge\)0 => x² - x \(\ge\)0 => x \(\le\)x²

* Với x \(\in\)Z và x \(\le\)0, ta có x \(\le\)0, x - 1 < 0

Do đó x(x - 1) \(\ge\)0 => x² - x \(\ge\)0 => x \(\le\)x²

Áp dụng (*) ta có: a² \(\le\)b\(\le\)b²\(\le\)c\(\le\)c² \(\le\)a

=> a² = b = b² = c = c² = a

=> a;b;c \(\in\){0;1}

Vậy chỉ có a = b = c = 0, a = b = c = 1 thỏa mãn đề bài

k minh minh giai cho

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

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