Если речь идет именно об описании, а не о произвольном тексте, то вполне возможно. Так как, табличных моделей много, а их возможности определяются сложностью таблиц и связями между таблицами. Но это не всегда будет оптимальная модель и тем более удобная в использовании.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=ArrRandom(ReadInteger('n='),1,99); a.Println; var k:=ReadInteger('k='); Writeln('Сумма чисел, кратных ',k,': ', a.Where(x->x mod k=0).Sum) end.
Если речь идет именно об описании, а не о произвольном тексте, то вполне возможно. Так как, табличных моделей много, а их возможности определяются сложностью таблиц и связями между таблицами. Но это не всегда будет оптимальная модель и тем более удобная в использовании.
Объяснение: