Недавнее содержимое от Dextel

Вообще-то, если вы заметили, то это совершенно разные задания в первом нужно было решить задачу, а во втором написать по задаче подпрограмму. К тому же сам я могу написать это, но почему-то при проверке всё время ставят минус и говорят, что всё выполнено не верно. Вот мой пример,который оказался...

Помогите сделать! Написать данную задачу в виде подпрограммы. Дан одномерный массив X(N) .Найти наибольший элемент (MAX), Преобразовать исходный массив таким образом ,чтобы все элементы по модулю не равные (MAX) заменились нулями,остальные единицами. pascal!!!!

Дан одномерный массив X(N) Помогите пожалуйста решить задачу в Pascal ABC! Дан одномерный массив X(N) .Найти наибольший элемент (MAX), Преобразовать исходный массив таким образом ,чтобы все элементы по модулю не равные (MAX) заменились нулями,остальные единицами. Решение через randomize...

Спасибо за ответ!

А вы не могли бы по подробней объяснить представленное выше.В принципе если опустить все организационные моменты связанные с основными индексами(begin,var,end), то это уравнение не может решать в две строки.

Помогите сделать задание Помогите сделать.Пожалуйста!