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

Program strok; uses crt; const number=['0','1','2','3','4','5','6','7','8','9']; var a: array[1..10] of string; i,j,k: integer; s: string; begin {ввод элементов массива} for i: =1 to 10 do begin write('введите ',i,' элемент массива:   '); readln(a[i]) end; {проверка условий} for i: =1 to 10 do {перебираем элементы массива} begin k: =0; {задаем триггер}   s: =a[i]; for j: =length(s) div 2+1 to length(s) do if s[j] in number then k: =1; {pascal позволяет обращаться со строковыми переменными, как с массивами символов, проверяем строку со второй половины на "вшивость", и, если встретилась цифра, вызываем срабатывание тригера} if k=0 then writeln(s) end; readln end.

2-а 5-б 8-в 10-г 44-д 74-е 80-ё 90-ж 12-з 15-и 116-й 77-к 48-л 58-м 55-н 91-о 23-п 73-р 41-с 75-т 88-у 11-ф 900-х 7-ц 1-ш 56-щ 25-ч 49-ы 22-ь,ъ 52-э 226-ю 228-я                                                       мама-582582                                                                                                     яблоко-228548917791

Чем является информация для человека? каким должно быть сообщение, чтобы оно пополнило ваши знания? информативны ли для вас следующие сообщения: "сколько в слове гласных звуков, столько в слове и слогов" и "термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? ответ обоснуйте.какими средствами приёма сигналов из внешнего мира обладает человек? какие ощущения вы испытывали, купаясь летом в реке? из чего складывается восприятия? пример.каково ваше представление о носителях информации? опишите их.что такое понятие? примеры понятий из повседневной жизни, а также из курсов , языка, , и информатики. 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики. сделайте умозаключения.