Цитата:
Сообщение от Ксения)777)
Одномерные массивы:Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные элементы, а потом по-ложительные.
|
Код:
var
a:array [1..1000] of integer;
n,i,k,j:integer;
begin
randomize;
write ('enter n=');
readln (n);
{Формирование массива}
for i:=1 to n do begin
a[i]:=random(10)-5;
write (a[i],' ');
end;
writeln;
k:=0;
{Сортировка массива}
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]>a[j+1]then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
end;
end;
{Вывод получившегося на экран}
for i:=1 to n do
write (a[i],' ');
readln
end.