Tạo tệp tong.inp gồm các giá trị
-Dòng 1: số lượng phần tử của mảng 1 chiều
-Dòng 2. các phần tử của mảng theo kiểu số nguyên
YÊU CẦU :- sắp xếp mảng theo chiều tăng dần, tính tổng các phân tử chia hết cho ba
-Ghi mảng đã sắp xếp và tổng ra tệp tong.out
var a:array[1..1000] of longint;
f1,f2:text;
i,j,n:word;
tam,t:longint;
const fi=’tong.inp’;
fo=’tong.out’;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
read(f1,a[i]);
if a[i] mod 3 = 0 then
t:=t+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;
for i:=1 to n do write(f2,a[i],’ ‘);
writeln(f2);
writeln(f2,t);
close(f1);close(f2);
end.