Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив B(N). Удалить из него минимальный элемент и сдвинуть все оставшиеся элементы на одну позицию влево

Ответ оставил Гость

Var ar:array[1..10] of integer;
min,mini,i:integer;
begin
 randomize;
 min:=2147483647;
  writeln(Array:);
   for i:=1 to 10 do
    begin;
     ar[i]:=random(100);
      write(ar[i]:4);
       if ar[i]        begin;
         min:=ar[i];
         mini:=i;
        end;
     end;
 for i:=mini to 9 do
 ar[i]:=ar[i+1];
writeln;
writeln(Final array:);
 for i:=1 to 9 do
  write(ar[i]:4);
end.