Не менее должен содержать 256
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
1)80 бит
2)12 байт
3)0.5 кБайт
4)1025 кБайт
5)1 Мбайт
6)500 Мбайт
От меньшего к большему
Что бы из 10-ной с.с перевести в 2-ную,8-ричную,16-ричную системя счисления необходимо поделить данное число на основание с.с в которую хотим перевести числа,т.е у на число 137 (10)"в десятичной с.с" мы ходим перевести в двоичную с.с то мы число 137 делим на основание с.с (т.е на 2) до тех пор пока частное не станет меньше делимого,затем записываем ответ с последнего частного и всех последующих остатков(т.е с конца выражения) , и так же в других с.с (делим число на 8, потом делим число на 16)
а что бы выполнить перевод из 2-ной,8-ной,16-ной с.с необходимо расставить степени числа начиная от знака равно(справа на лева ) от нулевой степени по n-ную степень,затем затем записать разложить данное число на сумму произведения основания с.с и составляющую числа.
так что как то так,смотреть рисунки =)
в 16-ричной с.с алфавит системы составляют числа от 0 до 9,а до 16 цифр дополняется буквами: A=10, B=11, C=12, D=13, E=14,F=15
<span><em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.</span>
<u>Пример</u>
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526
