elenaklon
const n=10; var i,j,v,min:integer; a:array [1..n]of integer; begin write (' Исходный массив: '); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; for i:=1 to n-1 do if a[i]<0 then begin min:=i; for j:=i+1 to n do if a[j] < a[min] then min:=j; v:=a[i]; a[i]:=a[min]; a[min]:=v; end; write ('Преобразованный массив: '); for i:=1 to n do write(a[i]:4); end.
Answers & Comments
const n=10;
var i,j,v:integer;
a:array [1..n]of integer;
begin
write (' Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]<0) and (a[j]<0) then
if a[i] < a[j] then
begin
v:=a[i];
a[i]:=a[j];
a[j]:=v;
end;
writeln;
write ('Преобразованный массив: ');
for i:=1 to n do
write(a[i]:4);
end.
var i,j,v,min:integer;
a:array [1..n]of integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
for i:=1 to n-1 do
if a[i]<0 then
begin
min:=i;
for j:=i+1 to n do
if a[j] < a[min] then min:=j;
v:=a[i];
a[i]:=a[min];
a[min]:=v;
end;
write ('Преобразованный массив: ');
for i:=1 to n do
write(a[i]:4);
end.