Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива

@Аня96 · Регистрация: 20.01.2014

Author24 — интернет-сервис помощи студентам

Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива.

@Puporev · 20.01.2014, 15:25

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]>0)and(a[j]>0)and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln('Сортировка положительных');
for i:=1 to n do
write(a[i]:4);
readln
end.

@Аня96 · 21.01.2014, 13:36 **[ТС]**

Puporev, спасибо, а что надо изменить, чтобы массив не рандомный давался, а самой его ввести и отрицательные числа просто должны остаться на своих местах

@Puporev · 21.01.2014, 13:40

Pascal

repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i])
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
 end;

@Аня96 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 13
		1
	Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива 20.01.2014, 15:15. Показов 3145. Ответов 3 Метки нет (Все метки) Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива. 0

@Аня96 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 13
	21.01.2014, 13:36 [ТС]	3
	Puporev, спасибо, а что надо изменить, чтобы массив не рандомный давался, а самой его ввести и отрицательные числа просто должны остаться на своих местах 0

	21.01.2014, 13:40

Опции темы