Сожмите одномерный массив, удалив предшествующие минимальному элементу.

Question

Сожмите одномерный массив, удалив предшествующие минимальному элементу.

Answer 1

Паскаль.

 

uses crt;
var a:array [1..100] of real;
i,j,n,min:integer;
begin
  clrscr;
  write('..'); read(n);
  for i:=1 to n do
  begin
    a[i]:=random(100);
    write(a[i],' ');
  end;
  min:=1;
  writeln;
  for i:=1 to n do
    if a[i]  for i:=min to n do
  begin
    inc(j);
    a[j]:=a[i];
    end;
  for i:=1 to j do
    write(a[i],' ');
end.

Answer 2

создаём массив

 

выделяем переменную которая посчитает количество элементов в массиве (например а)

 

находим минимальное значение в массиве

 

(сохраняем порядковый номер элемента  в памяти ) выделяя под него переменную (например b)

 

создаём ещё один одномерный массив с количеством элементов (a - b)

 

копируем все элементы первого массива от b до a  во второй массив

 

заменяем  первоначальный массив вторым а затем удаляем не нужную информацию .