Введите названия месяцев сянваря по июнь (слева направо) с исполь- Онажмите на кнопку Ввод на панели формул (или нажать Enter,
о растяністе выделение автозаполнения вправо на 5 ячеек и отпусти-
Если растянгте выделение влево или вверх, то тоже произойдет за-
Выполним ВМЕСТЕ
зованием стандартной последовательности. Для этого:
о в начальную ячейку введите значение «Январь»;
а затем вернуться в ячейку, где введено значение «Январь»);
о установите курсор мыши на Маркер заполнения;
те кнопку мыши. .
полнение месяцами, но в обратном порядке, т. е. Январь, Декабрь, на
ябрь и т. д. По диагонали автозаполнение не выполняется (рис. 3.13).
Январь Февраль Март
2001
1
3
2002
2003
3
2004
2005
3
Ол сол л л сол
Апрель
5
7
7
7
5
7
7
Рис. 3.13. Автозаполнение
Чтобы создать последовательность по другому закону, например,
с шагом два, необходимо:
ов соседние ячейки ввести два значения-образца с требуемым ша-
TON:
Ообычным выделить эти ячейки;
орастянуть выделение автозаполнения до требуемого размера.
В результате (если, например, ввести значения 00:00 и 02:00) продол-
жением последовательности будут значения 04:00, 06:00, 08:00 и т. д.
0:00
2:00
6:00
4:00
20
8:00
program p1;var i: integer;beginfor i:=1 to 10 dowriteln('5*'+i+'='+5*i);end.
____________________
program p1;var a, b, c, d, e, sum: integer;beginwrite('Введите первое число >> ');read(a);write('Введите втроое число >> ');read(b);write('Введите третье число >> ');read(c);write('Введите четвертое число >> ');read(d);write('Введите пятое число >> ');read(e);sum:=a+b+c+d+e;writeln('Сумма введенных чисел: '+sum);end.
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(76)-30;
if A[i,j] < A[iMin,jMin] then
Begin
iMin:=i;
jMin:=j
End;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
WriteLn('Min = A[',iMin,',',jMin,'] = ',A[iMin,jMin]);
End.
Исходный массив:
-11 -3 -16 44
-1 -10 38 -20
33 -22 17 10
Min = A[3,2] = -22