Элементы массива, находящиеся в интервале [25, 75], переставить в начало массива

@Myqkish · Регистрация: 22.11.2015

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста

И.Массив Х(20) заполнить целыми случайными числами в диапазоне от 11 до 111. Элементы 25 < Х(I) < 75 переставить в начало массива X. Массив X вывести до и после изменения. Перестановку выполнить без использования дополнительного массива.

@vint-81 · 02.12.2015, 19:27

Pascal

const n=20;
type mas=array[1..n] of byte;
var x:mas;
    i,j,t:byte;
procedure inp(var a:mas);
var i:byte;
begin
 for i:=1 to n do a[i]:=11+random(101);
end;
procedure outp(a:mas;s:string);
var i:byte;
begin
 writeln(s);
 for i:=1 to n do write(a[i],' ');writeln
end; 
begin
 inp(x);
 outp(x,'X:');
 j:=1;
 for i:=1 to n do 
  if (x[i]>25)and(x[i]<75) 
   then begin t:=x[i];x[i]:=x[j];x[j]:=t; inc(j) end;
 outp(x,'A'':')
end.

@Myqkish 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 10
		1
	Элементы массива, находящиеся в интервале [25, 75], переставить в начало массива 02.12.2015, 11:46. Показов 2121. Ответов 1 Метки нет (Все метки) Помогите пожалуйста И.Массив Х(20) заполнить целыми случайными числами в диапазоне от 11 до 111. Элементы 25 < Х(I) < 75 переставить в начало массива X. Массив X вывести до и после изменения. Перестановку выполнить без использования дополнительного массива. 0

	02.12.2015, 19:27

Опции темы

Элементы массива, находящиеся в интервале [25, 75], переставить в начало массива

Решение