Тема: «Методы сортировки элементов одномерного массива» :36:56

Пусть b[1],..., b[n] - целые числа из промежутка(-4;25). Найти наименьший элемент и его номер среди неположительных элементов массива. Program PR3; Uses crt; Var min,I,n, imin: integer; b: array[1..100] of integer; Begin Writeln(введи кол-во элементов n); Read(n); Writeln( исходный массив); For I:=1 to n do begin b[ I ]:= Random(25+4+1)-4; if b[ I ] <=0 then begin min:=b[i]; imin:=i; end; Write(b[, I, ]=,b[ I ] ); end; For I:=1 to n do IF (b[ I ] <=0) and (b[i] <min) then begin min:=b[i]; imin:=I; end; writeln; Writeln(Min=, Min, его номер=, imin ); End.

ПУЗЫРЬКОВАЯ СОРТИРОВКА For i:=1 to n-1 do For j:= 1 to n-i do if a[j]>a[j+1] then begin w:=a[j]; a[j]:=a[j+1]; a[j+1]:=w; end;

Сортировка перебором For i:=1 to n-1 do For j:= i+1 to n do if a[i]>a[j] then begin w:=a[i]; a[i]:=a[j]; a[j]:=w; end;

Задача 1 Пусть a[1],..., a[n] - целые числа. Требуется отсортировать положительные числа массива а[1],..., а[n]по возрастанию, а отрицательные по убыванию и записать их в массив b[1..n].

Program PR3; Uses crt; Var w,I,n,j : integer; a,b: array[1..100] of integer; Begin Writeln(введи кол-во элементов n); Read(n); Writeln( исходный массив); For I:=1 to n do begin a[ I ]:= Random( )-14; b[i]:=a[i]; end; {по возрастанию} w:=0; For I:=1 to n-1 do For j:= i+1 to n do if (b[i]>b[j]) and (b[i]>0) and (b[j]>0) then begin w:=b[i]; b[i]:=b[j]; b[j]:=w; end;

For I:=1 to n-1 do { по убыванию} For j:= i+1 to n do if (b[i]<b[j]) and (b[i]<0) and (b[j]<0) then begin w:=b[i]; b[i]:=b[j]; b[j]:=w; end; writeln; Writeln('массив A',, ' массив В'); For I:=1 to n do Writeln(a[ i ],, b[i] ); End.

Домашнее задание Подготовится к контрольной работе Задача Пусть b[1],..., b[n] - целые числа из промежутка(-14;25). Отсортировать все неположительные элементы массива по убыванию.