1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 ГБ = 1024 МБ
1 бит = 0,00012 Кбайт
1 Мбайт = 1048576 байт
1 байт = 8 битов
128 битов = 16 байт
32 байт = 256 бит
1 Кбайт = 1024 байт
1,5 Кбайт = 1536 байтов
2048 байт = 2 Кбайт
81 920 битов = 10 Кбайт
2 Мбайт = 2048 Кбайт
1,5 Мбайт = 1572864 байтов
а потом сам(а)
Div дивергенция
cos косинус
sin синус
tn тангенс
ctg катангенс
arctn арктангенс
arcctg арккатангенс
Начало
снять с саней шесты.
собрать из шестов деревянную основу чума.
снять с саней нюки.
покрыть чум нюками.
положить в чуме подстилки из веток ивы.
накрыть подстилки из веток ивы шкурами.
снять с саней печку.
поставить посередине чума печку
конец
Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
Begin
var arr := arrGen(ReadInteger('Введите n: '), e -> ReadInteger()).Println().ToArray();
var sum := arr.Skip(arr.Length - 5).Sum();
Println(sum);
arr[0] := arr[0] < 0 ? arr[0] : sum;
arr.Println();
end.