Program Day_So_Giam_Dan;

Uses Crt;

Var s,n,i,j,t:integer;

a:array[1..20] of integer;

Begin

Clrscr;

Writeln(‘SAP XEP DAY SO:’);

Write(‘Nhap so phan tu cua day 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 t:=a[i]; a[i]:=a[j]; a[j]:=t; End;

Writeln(' Day sau khi sap xep giam dan la:');

For i:=1 to n do Write(a[i]:4); Readln;

s:=0; For i:=1 to n do s:=s+a[i];

Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.

Thông tin là tất cả những gì con người thu nhận từ thế giới xung quanh hay về chính mình

Thông tin là những gì con người thu nhận được từ thế giới xung quanh như sự vật, sự kiện,…Thông tin đem lại nhiều kiến thức, sự hiểu biết cho con người.

3 chách nhé

3 cách

học tốt

gõ towf giaays chos suar

Nhân vật , cách chơi and lệnh để nhân vật trong trò chơi làm theo như là 1 con rối

chơi game

Rồi sao

Đề bài chưa rõ bạn ơi

Gọi nhau bằng miệng nha , Evania nghĩ thế . SAI thì thôi ạ !

Bằng mồm

I. Nội qui tham gia "Giúp tôi giải toán"

1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;

2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.

3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.

Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.

Thông tin

Thông  tin