nhập vào 30 số nguyên in ra 20 số cuối tính và in ra tổng sắp xếp thành dãy giảm dần
1 câu trả lời
Program BTT;
Uses crt;
Var A: array[1..30] of longint;
n,i,j,s,tg: longint;
Begin
Clrscr;
For i:=1 to 30 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
End;
s:=0;
For i:=11 to 30 so
s:=s+A[i];
Writeln('S = ',s);
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to n do Write(A[i],' ');
Readln
End.
Câu hỏi trong lớp
Xem thêm
