Создать новый массив, удалив из исходного массива минимальные элементы.

@likan8 · Регистрация: 15.04.2010

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

дан одномерный массив g{N}. создать массив N, удалив из исходного массива минимальные элементы.
Помогите кто-нибудь пожалуйста!!!

@STGE · 16.04.2010, 17:14

Pascal

min:=a[1,1];
for i:=2 to n do
if a[i]<min then min:=a[i];
for i:=1 to n do
if a[i]=min then
begin
j:=i;
repeat
a[j]:=a[j+1];
inc(j);
until (j=n) or (a[j]<>min);
end;

@likan8 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 6
		1
	Создать новый массив, удалив из исходного массива минимальные элементы. 16.04.2010, 16:23. Показов 1198. Ответов 1 Метки нет (Все метки) дан одномерный массив g{N}. создать массив N, удалив из исходного массива минимальные элементы. Помогите кто-нибудь пожалуйста!!! 0

Опции темы

Создать новый массив, удалив из исходного массива минимальные элементы.

Решение