Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

like mạnh cho bạn

• • Đường tròn nội tiếp tam giác là là đường tròn tiếp xúc với 3 cạnh của tam giác.
  • Các bước vẽ đường tròn nội tiếp tam giác:
    • Vẽ tam giác ABC
      • ​
    • Vẽ O là giao điểm 2 đường phân giác
      • 
    • vẽ là bán kính
      • ​
    • Vẽ đường tròn tâm O qua M
    • 

Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại

Bạn hãy vào phần thông tin tài khoản, sau đó chọn đổi ảnh đại diện, rồi nháy chọn ảnh mà bạn muốn đặt làm ảnh đại diện chọn open để tải lên, chờ trong giây lát ảnh sẽ được đổi, và pahir chờ khoảng 1 đến 2 tiếng để thay đổi hoàn toàn ảnh đại diện cho bạn đấy.

uses crt;

var n,i,max,min:integer;

s:real;

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]; 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;

s:=(max+min)/2;

wrrite('so lon nhat la:',max);

write('so nho nhat la:',min);

write(' trung binh số lớn nhất và số nhỏ nhất là:',s);

readln;

end.

giúp m đó BFF

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

Program bai1;

uses crt;

var T: real;

begin

clrscr;

write('nhap T ='); readln(T);

if T > 10000 then writeln('so tien thanh toan la : ' ,0.7*T:4:2 ,' VND')

else

writeln('so tien thanh toan la :' ,0.9*T:4:2 , ' VND');

readln;

end.