Для чего в документе используют таблицы? из чего они состоят? ​

ответ:

для чего используются таблицы

итак, попытаемся ответить на следующий вопрос: что лучше — организовать информацию в таблицу или просто выровнять данные с клавиши ? что, вы никогда об этом не задумывались? думаем, такой вопрос — вообще не тема для дискуссии, поскольку тут, как говорится, двух мнений быть не может. судите сами.

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

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

"клетка" таблицы называется ячейкой. в ячейку можно поместить текст (много текста) и графику.

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

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

к сожалению, word не сможет преобразовать ваш стол в стойку бара. (но поговаривают, что уже видели проспекты, в которых фирма microsoft анонсировала включение в word панели слесарного инструмента.)

Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
 M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969