На языке Паскаля

[Ne1StoM]

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

[Азамат Казанчев]

в цикле переберая все элементы найди min, и так же в цикле удали все элементы равные min. используй цикл for i=1 to n do

[Ne1StoM]

Извини но я вообще в этом не шарю)))Мне нужно решить эти задачки и все))Сдать их готовые))Сказали решить на языке Паскале и с процедурами и все))

[Азамат Казанчев]

прцедуры для решения такой задачи? может функции разного рода или типа того?
во всяком случаи ты хоть ввод и вывод значений офрмить сможешь в паскале?

[Ne1StoM]

Сообщение от Азамат Казанчев

прцедуры для решения такой задачи? может функции разного рода или типа того?
во всяком случаи ты хоть ввод и вывод значений офрмить сможешь в паскале?

Ввод и вывод смогу))

[Вадим Мошев]

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

Извини но я вообще в этом не шарю)))Мне нужно решить эти задачки и все))Сдать их готовые))Сказали решить на языке Паскале и с процедурами и все))

Решу задачу за 50 рублей, раз уж надо готовую...

[Ne1StoM]

Сообщение от Вадим Мошев

Решу задачу за 50 рублей, раз уж надо готовую...

Ага))А вдруг не так решишь )))

[Вадим Мошев]

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

Ага))А вдруг не так решишь )))

А как тебе надо?

[Азамат Казанчев]

если последовательность в виде строки возьму - это не будет проблемой, правельнее конечно в виде 1мерного массива но лень. со строкой проще мне

[Азамат Казанчев]

находит минимальный элемент

Min:=a[1];
For i:=1 to n do begun
If a[i]<min then
Min:= a[i];
Inc(i);
End;