// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел. Вот. Так что табличные модели, несомненно, лучше словесных.
