Пример комбинированной информации:
Вы получили телеграмму: "Встречайте двенадцатого. Поезд прибывает в восемь вечера" - в данном тексте слова "двенадцатого" и "восемь" мы понимаем как числа, хотя они и выражены словами.
2. Найти сумму чисел массива в переменной Sum, а потом:<span> </span>
<span>Writeln('Сумма элементов массива чётное число = ', not odd(Sum));</span>
1.
<span>var</span> m<span>:</span><span>array</span><span>[</span><span>1</span>..<span>100</span><span>]</span><span>of</span><span>integer</span>;
i<span>,</span>a<span>,</span>n<span>:</span><span>integer</span>;
<span>begin</span><span>write</span><span>(</span><span>'Введите размерность массива: '</span><span>)</span>;<span>readln</span><span>(</span>n<span>)</span>;
<span>write</span><span>(</span><span>'Введите число А: '</span><span>)</span>;<span>readln</span><span>(</span>a<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите массив: '</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span><span>readln</span><span>(</span>m<span>[</span>i<span>]</span><span>)</span>;
<span>writeln</span><span>(</span><span>'Массив: '</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span>
M<span>[</span>i<span>]</span><span>:=</span>m<span>[</span>i<span>]</span><span>-</span>a;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> N <span>do</span><span>write</span><span>(</span>M<span>[</span>i<span>]</span><span>,</span><span>' '</span><span>)</span>;
<span>end</span>.
Необхідність пошуку потрібної інформації у людини виникає повсякчас, незалежно від сфери її професійних інтересів: з якої платформи відправляється потяг на Хмельницький, як приготувати вареники з вишнями, яку будову має молекула води, скільки днів тривала друга світова війна, чи справджується прикмета про чорну кішку, яка частота змінного електричного струму в побутовій електричній мережі, яке закінчення мають іменники третьої відміни в родовому відмінку однини та ін. Відповіді на частину з цих запитань людина може отримати зі своєї пам'яті, для отримання інших необхідно звернутися до інформаційної системи залізничного вокзалу, переглянути кулінарну книгу, довідник з хімії, фізики чи електротехніки, посібник з правопису тощо. Для полегшення пошуку потрібної інформації людство придумало багато засобів – універсальні енциклопедії і енциклопедії з предметних галузей, довідники і словники, довідкові бюро та інформаційні табло та ін. <span>Обсяги повідомлень, які накопичило людство, невпинно зростають Так, при розкопках стародавнього міста шумерів Ур було знайдено більше 20 тисяч глиняних табличок з відомостями про звичаї давнього народу, його легенди та історичні події, що відбувалися більше, ніж 5 тисяч років тому. Знаменита Олександрійська бібліотека, яка була заснована в Єгипті у ІІІ ст. до нашої ери, за різними джерелами містила від 100 до 700 тисяч рукописів. Сьогоднішні бібліотеки вражають обсягами різноманітних даних. Найбільшою в світі вважається Британська бібліотека в Лондоні, яка нараховує більше 150 млн. одиниць зберігання, а найбільша бібліотека нашої країни – Національна бібліотека України імені В. І. Вернадського в Києві нараховує більше 15 млн. одиниць зберігання. </span><span>Вчені запевняють, що зберігання великих обсягів даних виправдано тільки за умови, якщо пошук потрібних даних здійснюється швидко і подаються вони в доступній для розуміння формі. Ці умови забезпечують сучасні технології зберігання даних. Основою цих технологій є комп’ютеризовані бази даних.</span>
Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.