Написати підпрограму-процедуру

Дані дві квадратні дійсні матриці. Надрукувати квадрат тієї з них, у якої найменший слід (сума діагональних елементів), вважаючи, що така матриця одна.
Вибрати з матриці елементи, що не перевищують задану величину, і об’єднати їх в одновимірний масив.
Описати процедуру БасІо^А, N Б) розкладу натурального числа А на прості співмножники. Кількість простих співмножників повертається у цілій змінній N а самі співмножники у зростаючому порядку - у цілочисленному масиві Б (К і Б - вихідні параметри). За допомогою цієї процедури розкласти на прості співмножники п’ять даних чисел.
Два простих числа називаються „близнюками”, якщо вони відрізняються один від іншого на 2 (такі, наприклад, числа 41 та 43). Надрукувати всі пари „близнюків” на відрізку [п, 2п], де п- задане ціле число більше 2.
Два натуральних числа називаються “дружніми”, якщо кожне з них дорівнює сумі всіх дільників іншого за виключенням його самого (такі, наприклад, числа 220 та 284). Надрукувати всі пари “дружніх” чисел, що не перевищують задане натуральне число.
Описати процедуру, що знаходить суму цифр 8 цілого числа N (К - вхідний, 8 - вихідний параметр). Використовуючи цю процедуру, знайти суму цифр п’ яти даних чисел.
const d=20; type vector=array[1..n] of real; Описати процедуру change(x, y, z), яка у тому з векторів, де більше від’ємних елементів (вважати, що такий вектор один), усі його додатні елементи замінює таким чином: на куби - якщо це вектор x чи вектор z, і на їх зворотні величини - якщо це вектор у.
Дані три дійсні квадратні матриці. Надрукувати ту з них, норма якої найменша. За норму матриці взяти максимум абсолютних величин її елементів.
Описати процедуру Smooth(A,N), що замінює кожний елемент дійсного масиву A розміру N на його середнє арифметичне зі своїми сусідами (“згладжування масиву”). Масив А - вхідний і вихідний параметр, N - вхідний параметр. За допомогою цієї процедури виконати п’ятикратне згладжування даного масиву, виводячи на екран результати кожного згладжування.
Описати процедуру SortDec(A, N), що виконує сортування за спаданням масиву А з N дійсних чисел. Масив А є вхідним і вихідним параметром. За допомогою цієї процедури відсортувати масиви A, B, C розміру NA, NB, NC відповідно.
Описати процедуру SortInc(A, N), що виконує сортування за зростанням масиву А з N дійсних чисел. Масив А є вхідним і вихідним параметром. За допомогою цієї процедури відсортувати масиви A, B, C розміру NA, NB, NC відповідно.
Описати процедуру Transp(A, M), що виконує транспонування квадратної дійсної матриці A порядку M. Двовимірний масив А - вхідний і вихідний параметр, M - вхідний параметр.
Описати процедуру Invert(A, N), що змінює порядок слідування елементів масиву А N дійсних чисел на протилежний (“інвертування масиву”). Масив А - вхідний і вихідний параметр, N - вхідний параметр. За допомогою цієї процедури інвертувати масиви A, B, C розміру NA, NB, NC відповідно.
Описати процедуру MoveLeft(A, N, k), що здійснює циклічний зсув елементів масиву дійсних чисел A(N) на k позицій ліворуч (к<К). Масив А - вхідний і вихідний параметр, N і к - вхідні дані. За допомогою цієї процедури здійснити зсув елементів масиву на к1 позицій, а потім - зсув елементів на к2 позицій (к1, к2 задані).
Дана непорожня послідовність слів, у кожному з яких від 1 до 6 латинських букв; Між сусідніми словами - кома, за останнім словом - крапка. Надрукувати ті слова, у яких однакові „сусіди”, тобто збігаються попереднє слово та те, що йде за ним.
Дані три слова, у кожному з яких від 1 до 6 латинських букв і за кожним з яких слідує пропуск. Надрукувати ці слова в алфавітному порядку.
Описати процедуру розподілу масиву А[1..п] на дві частині: перша частина містить елементи, менші А[1], друга - більші А[1].
Дано масив А[1..п] дійсних чисел. Видалити від’ємні елементи без порушення послідовності.
Описати процедуру сортування „бульбашком”, підрахувати кількість операцій порівняння та обміну.
Дано масив А[1..п] дійсних чисел. Перетворити масив: найбільший елемент перенести в кінець, а елементи, що йдуть за ним, перенести на початок масиву.
Перетворити масив А[1..п] у новий, елементами якого є часткові суми: Ь1 =а 1; Ь2=а1+а2; Ь3=а1+а2+а3; ... Масив заповнювати доти, поки |Бі|<а, де а задано.
Перетворити масив А[1..п], розмістивши спочатку від’ємні елементи, потім - додатні.
Дано рядок, що містить латинські букви. Перевірити впорядкованість цих букв за алфавітом. Якщо рядок впорядкований, то підрахувати кількість букв „а”.
Описати процедуру формування масиву додатних значень функції: у = а ■ е8Іп(х + р), аргумент х змінюється від хп до хк з кроком Ах.
25) Дано одновимірний масив x[1..n]. Знайти математичне
1 n 1 n
очікування m = — ^ xt та дисперсію D = — ^(хг. - mf
n i=1 n г=1