nhập 1 dãy số bất kì ko quá 50 số,in ra các phần tử âm theo thứ tự ko giảm
nhanh nha
cần gấp ạ
nhập 1 dãy số bất kì ko quá 50 số,in ra các phần tử âm theo thứ tự ko giảm nhanh nha cần gấp ạ
By Lydia
By Lydia
nhập 1 dãy số bất kì ko quá 50 số,in ra các phần tử âm theo thứ tự ko giảm
nhanh nha
cần gấp ạ
program amkhonggiam;
uses crt;
var A:array[1..100] of integer;
n,i,j,tg:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+ to n do
if A[i]>A[i] then
begin
tg:=A{i];
A[i]:=A[j];
A[j]:=tg;
end;
for i:=1 to n do
if A[i]<0 then write(A[i],’ ‘);
readln
end.
program chuongtrinh;
var i,n,nb,max,tam,v: integer;
uses crt;
a: array[1..50] of integer;
b: array[1..50] og integer;
begin
write(‘Nhap so luong phan tu: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu’,i,’: ‘);
readln(a[i]);
end;
nb:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
nb:=nb+1;
b[nb]:=a[i];
end;
end;
write(‘Cac so am trong mang lan luot khong giam la: ‘);
max:=b[i];
for i:=1 to nb do
begin
if b[i]> max then max:= b[i];
vt:=i;
end;
tam:=b[1];
b[1]:=b[vt];
b[vt]:=tam;
for i:= 1 to nb do
write(‘ ‘,b[i],’ ‘);
readln
end.