Народ окажите содействие.. До сдачи два дня осталось((

[SwAAAte83]

1.Заполнить двумерный числовой массив А[4, 5] целыми числами. Найти сумму четных элементов каждой строки массива и раскрасить при выводе красным цветом четные элементы.
2.Создать функцию программиста, которая подсчитывает в заданной строке количество слов, заканчивающихся на определенную букву. Составить программу, в которой запрашивается строка, и если в ней больше слов, заканчивающихся на букву «о», чем слов, заканчивающихся на букву «а», удалить из строки последнее слово, заканчивающиеся на «о».



James_047 если зайдешь в эту тему, обясни пожалуйста ты сегодня ночью прогу писал
можешь обьяснить пожалуйста для чего нужен соpy?? где кейс проверяет по условию 0 или 1.

Case A[1] Of
'0' : Transl := Transl(Copy(A, 2, L - 1));
'1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
End

[James_047]

Да это бородатый код. Его запросто можно найти на велиликих просторах интернета. Просто не охота изобретать велосипед и писать, то что очевидно заново. Всё что вам нужно было сделать это найти его или какой то ещё из сотни вараинтов и дописать пару строк проверки кратности. Объясняется он просто.
В основе рекурсивная процедура.
Если вспомнить математику, то в десятичное число мы переводим таким образом.
Допустим, вам дано двоичное число 10. Для перевода в десятичное просто запишите его справа налево как сумму по разрядам следующим образом:
1x2^1+1x2^0=2
Функция Copy
http://www.kurslab.ru/sprav_copy.html
Вот её синтаксис. Вкратце смысл таков. Просматриваем нашу строку с двоичным числом до тех пор пока всю её не пройдём.
Смотрится '1' у нас или ноль если ноль то так как перемножается на ноль в какой либо степени, то нам не имеет смысла напрягаться и мы просто на вход отправляем строку без первого символа.Если 1 то как и подобает мы приплюсовываем 2 в степени её позиции с переворотом направо.

Можно конечно было использовать и другой алгоритм, напимер перевернуть число наоборот посредством div и mod. Но здесь смысла не имеет, с позицией мы неошибёмся потому что есть длина length-1 строки и выходит что самый первый символ он последний если смотреть справа налево.

Т.е. где то так
Например 10
1 итерация 10 смотрим 1 - это единица, значит 1*2^length-1, т.е. 1*2^1. Отправляем на вход 0
2 итерация 0 0 - смотрим 0 отправляем пустую строку. Конец выполнения.
Выводим 2.

Где то так.
То что у вас осталось мало времени, это проблема ваша. Обратились бы в отдел фриланса, там всё напишут и разъяснят по высшему разряду.