Преобразовать массив таким образом, чтобы сначала располагались элементы из интервала [a,b] , а затем все

[parka]

Преобразовать массив таким образом, чтобы сначала располагались элементы из интервала [a,b] , а затем все остальные.

кто может(( до экзамена 3 дня осталось........

[rus12]

Сообщение от parka

до экзамена 3 дня осталось........

Где ты раньше был ?

[MyLastHit]

Интересно... У всех сессия с первого июня, а у вас через 3 дня.

[parka]

всмысле? не понял

[eoln]

Сообщение от parka

всмысле? не понял

А смысл в том, что надо показывать свои хоть какие-нибудь наработки, а мы подскажем что и где исправить. Если своих идей нет и надо полностью получить решение, то эта услуга платная - раздел фриланс.
Также можно пробежаться поиском по форуму.

[parka]

1111111111111111111111111

[parka]

program pr; 
uses crt; 
type mas=array[1..100] of integer; 
var 
i,n,c,j,s,count:integer; 
a:mas; 

function min(var a:mas; n:integer):integer; 
var i,im,m:integer; 
begin 
m:=a[1]; 
im:=1; 
for i:=2 to n do 
   if a[i]<=m then 
    begin 
     m:=a[i]; 
     im:=i 
    end; 
min:=im 
end; 

procedure sort(var a:mas; n:integer); 
var i,j,t,a2,b:integer; 
begin 
write('vvedite a: '); 
readln(a2); 
write('vvedite b: '); 
readln(b); 
j:=1; 
for i:=1 to n do 
  if (a[i]<=b) and (a[i]>=a2) then 
   begin 
    t:=a[i]; 
    a[i]:=a[j]; 
    a[j]:=t; 
    inc(j) 
   end; 
end; 

begin 
clrscr; 
writeln('vvedite n'); 
readln(n); 
writeln('vvedite massiv'); 
for i:=1 to n do readln(a[i]); 

writeln('vvedite c'); 
readln(c); 
count:=0; 
for i:=1 to n do if (a[i]<c) then inc(count); 
write('elementov < c: ',count); 
writeln; 

j:=min(a,n); 
s:=0; 
if j<>n then for i:=j+1 to n do s:=s+a[i]; 
writeln('symma posle min= ',s); 

sort(a,n); 
write('result massiv: '); 
for i:=1 to n do write(a[i],' '); 
readln 
end.

подскажите ,ошибку выдает!!! второй обзац предпоследнее выражение!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

Компилятор какбэ намекает тебе "чужой код копипастить нехорошо" :D

А идея измерять программы абзацами хорошая, надо взять на вооружение )