1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
7200 * 8 = 57600 Кбит
<span>57600 / 196,608= ~300 сек = ~5 мин
Ответ: 5 минут</span>
Для того, чтобы нумерация строк в таблице выполнялась автоматически, следует выполнить несколько простых действий:
1. Выделяем ячейки, в которых нам необходима нумерация, в блок.
2. Переходим на ленту меню Главная, в область Абзац.
3. Выбираем создание нумерованного списка (1. 2. 3. …) при помощи кнопки Нумерация 
4. Получаем таблицу со столбцом, в котором нумерация строк будет выполняться автоматически при удалении или добавлении строк в таблицу.
Можно сказать, что мы превратили столбец № п/п в обыкновенный нумерованый список, который будет автоматически расширяться или уменьшаться по количеству строк в таблице. При этом нумерация строк будет выполняться автоматически.
137 (8сс)=1 011 111 (2сс) ( 3 (8cc) =011 (2cc) !!! по триадам!!! )
1 3 7
5D (16сс) = 101 1101 (2сс)
5 D
101 1101 < 101 1111
5D (16cc) < 137 (8cc)
Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
<span>End.</span>