Question

Sử dụng ngôn ngữ lập trình viết chương trình thực hiện các công việc sau:

1. Viết thủ tục nhập vào mảng A là điểm toán của n học sinh

2. Viết thủ tục xuất mảng A đã được sắp xếp lên màn hình

3. Viết hàm tính Tổng điểm của n học sinh trên

4. Viết thủ tục hoán vị trí điểm giữa các học sinh

5. Hoàn thành chương trình chính với số điểm được sắp xếp theo thứ tự tăng dần

Answer 1

Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé

uses crt;

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

i,n,t,tam,j: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 

  t:=t+a[i];

writeln('Tong diem cua ',n,' ban la: ',t);

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;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.