14 для определения даты создания документа в текстовом процессоре ms word
необходимо использовать следующий путь в меню: «файл» - «свойства-
-1 «общие».
2документ».
3 «статистика».
- 4 «состав».
1.5 для установки вертикальной и горизонтальной полос прокрутки в текстовом
процессоре ms word необходимо использовать следующий путь в меню: «сервис» -
«параметры» -
- 1 «вид».
- 2 «общие».
- 3 «правка».
- 4 «печать».
16 для установки возможности печати белым текстом на синем фоне в текстовом
процессоре ms word необходимо использовать следующий путь в меню: «сервис» -
«параметры» -
- 1 «вид».
- 2 «общие».
- 3 «правка».
- 4 «печать».
17для установки режима черновой печати в текстовом процессоре ms word необходимо
использовать следующий путь в меню: «сервис» - «параметры» -
- 1 «вид».
- 2 «общие».
-3 «правка».
- 4 «печать».
18 для установки ориентации бумаги в текстовом процессоре ms word необходимо
использовать следующий путь в меню: «сервис» - «параметры страницы» -
- 1 «поля».
- 2 «размер бумаги».
- 3 «источник бумаги».
- 4 «mакет».
19для установки колонтитулов документа табличного процессора ms excel необходимо
использовать следующий путь в меню: «файл» - «параметры страницы» -
- 1 «страница».
- 2 «колонтитулы».
- 3 «поля».
- 4 «лист».
0 для установки ориентации текста в ячейке документа табличного процессора ms
excel необходимо использовать следующий путь в меню: «формат» - «ячейки» -
- 1 «число».
- 2 «выравнивание».
- 3 «шрифт».
- 4 «граница».
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
begin
var m,n:integer;
Write('Количество строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,10,99);
for var i:=0 to n-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var p:=ReadInteger('Введите число Р:');
var b:array of integer;
SetLength(b,4*m);
var k:=0;
for var i:=n-p to n-1 do
for var j:=0 to m-1 do
if a[i,j] mod 4=0 then begin
b[k]:=a[i,j]; Inc(k)
end;
SetLength(b,k);
b.Print
end.
Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20