Одномерный массив, решение задачи (pascal)

[Immortal Kane]

Доброго времени суток, нужна помощь в решении простых задач по pascal.

№1
Дан одномерный массив W[n]. Сформировать массив F, содержащий элементы массива W, меньшие максимального элемента.

№2
Дана строка. После каждого символа добавить ! (восклицательный знак).

Заранее спасибо.

[maLoy*508]

есть конкретный вопрос
или халяву ищем?

[Perchik71]

Сообщение от Immortal Kane

Доброго времени суток, нужна помощь в решении простых задач по pascal.

№1
Дан одномерный массив W[n]. Сформировать массив F, содержащий элементы массива W, меньшие максимального элемента.

№2
Дана строка. После каждого символа добавить ! (восклицательный знак).

Заранее спасибо.

function ismin(arrnum, usernum: Integer): boolean;
begin
ismin := (arrnum < usernum); // меньше то True
end;

// по идеи pascal съест но уже подзабыл... эта фуна даёт правду если чилсло в первом меньше пользовательского.... ну а там догадаешься