Одномерный массив

[gaben134]

Одномерный массив

В одномерном массиве, состоящем из n вещественных
элементов
1) вычислить сумму элементов массива, расположенных до последнего
положительного элемента;
2) сжать массив, удалив из него все элементы, модуль которых
находится в интервале [а,b]. Освободившиеся в конце массива
элементы заполнить нулями;
3) упорядочить элементы массива по возрастанию, используя
линейную сортировку;
4) найти заданный элемент в упорядоченном массиве, используя
бинарный метод поиска.

 

[Евгений]

3.

uses  Crt;
const n=15;
type  Tmass=array[1..n] of integer;
var   a:Tmass;
      i,j,t:integer;
begin
      ClrScr;
       Writeln('Ne sortirovanniy massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(100);
          Write(a[i]:4);
        end;
         Writeln;
          Writeln;
       for i:=1 to n-1 do
        begin
          t:=i;
          for j:=i to n do
           if a[j]<a[t]
            then t:=j;
          j:=a[i];
          a[i]:=a[t];
          a[t]:=j;
        end;
       Writeln('Sortirovanniy massiv:');
        Writeln;
       for i:=1 to n do
        Write(a[i]:4);
       Writeln;
      ReadKey;
end.