Viết phương trình nhập 1 mảng phán tử n
A Tính tổng pt
B Tìm số lg phân tử dương và phân tử âm
C Tìm số lớn nhì của phân tử dương và số thứ nhì của phân tử âm
D Sắp xếp theo tăng dần
Viết phương trình nhập 1 mảng phán tử n
A Tính tổng pt
B Tìm số lg phân tử dương và phân tử âm
C Tìm số lớn nhì của phân tử dương và số thứ nhì của phân tử âm
D Sắp xếp theo tăng dần
program BT;
uses crt;
var A:array [1..500] of integer;
n,i,T,d1,d2,max,max2,j,tg: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
T:=T+i;
if A[i]>0 then
begin
d1:=d1+1;
if max<A[i] then max:=A[i];
if (A[i]>max2) and (A[i]<max) then max2:=A[i];
end;
if A[i]<0 then
begin
d2:=d2+1;
if max<A[i] then max:=A[i];
if (A[i]>max2) and (A[i]<max) then max2:=A[i];
end;
end;
writeln(‘T = ‘,T);
writeln(‘So phan tu duong: ‘,d1);
writeln(‘So phan tu am: ‘,d2);
writeln(‘So lon nhi: ‘,max2);
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;
write(‘Mang sau khi sap xep: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln
End.
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, s, sd, sa, j, t: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
sd:=0;
sa:=0;
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
s:=s+A[i];
if A[i]>0 then sd:=sd+1;
if A[i]<0 then sa:=sa+1;
end;
writeln(‘_________________________________________’);
writeln;
writeln(‘Tong = ‘,s);
writeln(‘Co ‘,sd, ‘ phan tu duong’);
writeln(‘Co ‘,sa, ‘ phan tu am’);
for i:=1 to n-1 do
for j:=1+i to n do
if A[i]<A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
if sd>=2 then write(‘Phan tu duong lon thu 2: ‘,A[2]);
if sd<=1 then write(‘Khong co phan tu duong lon thu 2’);
writeln;
s:=0;
for i:=1 to n do
if A[i]<0 then
begin
s:=A[i+1];
break;
end;
if sa>=2 then write(‘Phan tu duong lon thu 2: ‘, s);
if sa<=1 then write(‘Khong co phan tu am lon thu 2’);
for i:=1 to n-1 do
for j:=1+i to n do
if A[i]>A[j] then
begin
t:=A[i];
A[i]:=A[j];
A[j]:=t;
end;
writeln;
write(‘Sap xep tang dan: ‘);
for i:=1 to n do write(A[i]:3);
readln
end.