Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)

14.04.2008, 22:38. **Показов** 5257. **Ответов** 1

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

ЗАДАЧА НА ПАСКАЛЕ!
Здравствуйте, срочно нужна помощ, затра экзамен по алгоритмизации, но у меня не сделана одна задача и я не могу её сделать, может кто-нибуди знает Паскаль?
Вот задача:
"Дана последовательность целых чисел a1,a2,...an. Образовать ноыую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)".
Задача на сложные типы данных: массивы.
Помогите плиз, ЗАРАНЕЕ ОГРОМНОЕ СПАСБО!!!

@бугага · 14.04.2008, 23:54

Pascal

const n = 10;
var a: array[1..n] of integer;
  b: array[1..n] of integer;
  i, c: integer;
...
min := a[1];
for i:=1 to n do if min>a[i] then min := a[i];
c := 0;
for i:=1 to n do
 if a[i]<>min then begin
  inc(c);
  b[c] := a[i]
 end;

leha-sk
		1
	Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an) 14.04.2008, 22:38. Показов 5257. Ответов 1 Метки нет (Все метки) ЗАДАЧА НА ПАСКАЛЕ! Здравствуйте, срочно нужна помощ, затра экзамен по алгоритмизации, но у меня не сделана одна задача и я не могу её сделать, может кто-нибуди знает Паскаль? Вот задача: "Дана последовательность целых чисел a1,a2,...an. Образовать ноыую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)". Задача на сложные типы данных: массивы. Помогите плиз, ЗАРАНЕЕ ОГРОМНОЕ СПАСБО!!!

	14.04.2008, 23:54

Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)

Решение