program a1;
var
a: array [1..15] of integer;
a2: array [1..15] of integer;
Mas1:integer;
Mas2:integer;
Raz:integer;
i:integer;
begin
//Подключаем датчик случайных чисел
randomize;
//Цикл заполняющий массивы и нахождение сумм элементов масива
for i:=1 to 15 do
begin
a[i]:=random(100);
a2[i]:=sqr(a[i])-a[i];
Mas1:=Mas1+a[i];
Mas2:=Mas2+a2[i];
end;
//находим разницу массивов
raz:=mas1-mas2;
//Выводим на экран 1ый массив
write('Первый массив: ');
for i:=1 to 15 do
begin
write(a[i],'|')
end;
writeln('');
//Выводим на экран 2ой массив
write('Второй массив: ');
for i:=1 to 15 do
begin
write(a2[i],'|')
end;
writeln('');
//Выводим на экран разность массивов
write('Разность сумм элементов массива:', raz);
writeln('');
end.
зачем вам такое старье?
1) И что с этим надо сделать. Да ворд может создавать таблицы, они имеют какието границы. Со связями не стыкалась но наверно и такое есть. Может затянуть к примеру таблицу из екселя или аксеса
2)выделили нужные ячейки
по горизонтали - есть кнопочкина панели(лево, право, по центру)
по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант
так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд
