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)выделили нужные ячейки
по горизонтали - есть кнопочкина панели(лево, право, по центру)
по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант
так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд
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)выделили нужные ячейки
по горизонтали - есть кнопочкина панели(лево, право, по центру)
по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант
так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд