1a

2c

3d

4d

5a

var a:array[1..50] of longint;

n,i,j:byte;

tam:longint;

begin

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

for i:=1 to n do

begin

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

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

write('so lon nhat co the tao ra:');

for i:=1 to n do write(a[i]);

readln;

end.

Chưa đúng đâu bạn ơi!

Cái này mới chỉ là sắp xếp theo thứ tự giảm dần thôi. Chứ khi ghép lại rồi chọn số lớn nhất thì chưa đúng

nếu thế thì phải cho chạy từ 2 bạn ạ

ý tưởng của mình: chỉ cần n chia hết cho 1 trong các số trong vòng lặp thì sẽ lập tức thoát khỏi vòng lặp và ko kiểm tra nữa, còn nếu nó ko chia hết cho số nào thì nó là số nguyên tố

var n,i:longint;

bl:boolean;

begin

bl:=true;

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

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

begin

bl:=false;

break;

<break là lệnh để thoát ra khỏi vòng lặp khi gặp ước khác 1 của n>

end;

if bl=true then write('la so nguyen to')

else write('khong la so nguyen to');

readln;

end.

mình dùng cách khác nhé

var x,y:longint;

begin

write('nhap x,y:');readln(x,y);

repeat

if x>y then x:=x-y else y:=y-x;

until x=y;

write('ucln la ',x);

readln;

end.

var a:byte;

begin

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

if a mod 2=0 then write('a la chan') else write('a la le');

readln;

end.

Program asd;
Uses crt;
Var a:array[1..6] of Interger;
Begin
c:=0;
t:=0;
For i:=1 to 5 do
Begin
Write("Nhap chieu cao nguoi thu nhat (m) : ");
Readln(a[i]);
if a[i]>c then c:=a[i];
If a[i]<t then t:=a[i];
End;

Writeln("Chieu cao nguoi cao nhat la: ",c," m");

Writeln("Chieu cao nguoi thap nhat la: ",t," m");

Readln;

End.

Chúc bạn thi tốt

Program Bt1;

Var a, b, c, d: Byte;

Begin

Clrscr;

Write('Nhap so a='); readln(a);

Write('Nhap so b='); readln(b);

Write('Nhap so c='); readln(c);

Write('Nhap so d='); readln(d);

S:=a+b+c+d+e;

Writeln(Tong 5 so tu nhien tren la:'); readln(S)

End.

Program không có dấu : đâu nhé

ấy Iori Yagami, mình thiếu số e bạn biết ghi không hay để mình chỉ?

mình dùng thuật toán euclid để giải bài này nhé

dùng vòng while:

var a,b:byte;

begin

write('nhap 2 so:');readln(a,b);

while a<>b do if a>b then a:=a-b else b:=b-a;

write('uoc chung lon nhat la:',a);

readln;

end.

dùng vòng repeat:

var a,b:byte;

begin

write('nhap 2 so:');readln(a,b);

repeat

if a>b then a:=a-b else b:=b-a;

until a=b;

write('uoc chung lon nhat la:',a);

readln;

end.