50 . 1) задать массив, состоящий из 15 элементов; 2) ввести массив с функции рандом из заданного интервала (см. в таблицу); 3) вывести массив в строчку; 4) вывести в строчку все четные элементы этого массива. диапазон для рандома: [-3; 18]

const n=15;

var a: array [1..n] of integer;

i,k: integer;

begin

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(22)-3;

write(a[i],' ')

end;

writeln;

write ('четные элементы: ');

for i: =1 to n do

if a[i] mod 2 = 0 then write(a[i],' ')

end.

А)  236 / 2 = 118 (в  остатке 0) 118  / 2 = 59 (в остатке 0) 59  /  2 = 29 (в остатке  1) 29  / 2 = 14 (в остатке 1) 14  /  2 = 7 (в остатке 0) 7  /  2 = 3 (в остатке  1) 3  /  2 = 1 (в остатке 1) 1  /  2 = 0  (в остатке 1) 236(10)  =  11101100(2) 236  /  8 = 29 (в остатке 4) 29  /  8 =  3 (в остатке 5) 3  /  8 = 0 (в остатке 3) 236(10)  =  354(8) 236  /  16 = 14 (в остатке 12  -  c) 14  /  16 = 0 (в остатке 14  -  e) 236(10) = ec(16) б)  1010 / 2 = 505 (в остатке 0) 505  / 2 = 252 (в остатке 1) 252  /  2 = 126 (в остатке 0) 126  /  2 = 63 (в остатке  0) 63  /  2 = 31 (в остатке 1) 31  / 2 = 15 (в остатке 1) 15  /  2 = 7 (в остатке 1) 7  /  2 = 3 (в остатке 1) 3  /  2 = 1  (в остатке 1) 1  /  2 = 0 (в остатке 1) 1010(10)  =  1111110010(2) 1010  /  8 = 126 (в остатке 2) 126  /  8 = 15 (в остатке 6) 15  / 8 = 1 (в остатке 7) 1 / 8 = 0 (в остатке 1) 1010(10)  = 1762(8) 1010  /  16 = 63 (в остатке 2) 63  /  16 = 3 (в остатке 15 - f) 3  /  16 = 0 (в остатке 3) 1010(10)  =  3f2(16) в)  переведем  целую  часть: 370  /  2 = 185 (в остатке 0) 185  /  2 = 92 (в остатке 1) 92  /  2 = 46 (в остатке 0) 46  /  2 = 23 (в остатке 0) 23  /  2 = 11 (в остатке 1) 11  /  2 = 5 (в остатке 1) 5 / 2 =  2 (в остатке 1) 2 / 2 = 1 (в остатке 0) 1 / 2 = 0 (в остатке  1) переведем  дробную  часть: 0,125  *  2 = 0,25 (целая часть 0) 0,25  *  2 = 0,5 (целая часть 0) 0,5  *  2 = 1 (целая часть 1) 370,125(10)  =  101110010,001(2) переведем  целую часть: 370  /  8 = 46 (в остатке 2) 46  /  8 = 5 (в остатке 6) 5  /  8 = 0 (в остатке 5) переведем  дробную  часть: 0,125  * 8 = 1 (целая часть 1) 370,125(10)  =  562,1(8) переведем  целую  часть: 370  /  16 = 23 (в остатке 2) 23  /  16  = 1 (в остатке 7) 7  /  16 = 0 (в остатке 7) переведем  дробную  часть: 0,125  *  16 = 2 (целая часть 2) 370,125(10)  =  772,2(16) г)  переведем  целую часть: 929  /  2 =  464 (в остатке 1) 464  /  2 = 232 (в остатке 0) 232  /  2 = 116 (в остатке 0) 116  /  2 = 58 (в остатке 0) 58  /  2 = 29 (в остатке 0) 29  /  2 = 14 (в остатке 1) 14  /  2 = 7 (в остатке 0) 7  /  2 = 3 (в остатке 1) 3  /  2 = 1 (в остатке  1) 1  /  2 = 0 (в остатке  1) переведем  дробную  часть: 0,375  *  2 = 0,75 (целая часть 0) 0,75  *  2 = 1,5 (целая часть 1) 0,5  *  2 = 1 (целая часть 1) 929,375(10)  =  1110100001,011(2) переведем  целую  часть: 929  /  8 = 116 (в остатке 1) 116  /  8 = 14 (в остатке 4) 14  /  8 = 1 (в остатке 6) 1  /  8 = 0 (в остатке 1) переведем  дробную  часть: 0,375  *  8 = 3 (целая часть 3) 929,375(10)  =  1641,3(8) переведем целую часть: 929 / 16 =  58 (в остатке  1) 58 / 16 =  3 (в остатке  10  -  a) 3 / 16 = 0 (в остатке 3) переведем  дробную часть: 0,375  *  16 = 6 (целая часть 6) 929,375(10)  = 3a1,6(16) д)  переведем целую часть: 31  /  2 = 15 (в остатке 1) 15  /  2 = 7 (в остатке 1) 7  /  2 = 3 (в остатке 1) 3  /  2 = 1 (в остатке  1) 1  /  2 = 0 (в остатке 1) переведем  дробную  часть: 0,09  *  2 = 0,18 (целая  часть 0) 0,18  *  2 = 0,36 (целая часть 0) 0,36  *  2 = 0,72 (целая часть 0) 0,72  *  2 = 1,44 (целая часть 1) 0,44  *  2 = 0,88  (целая часть 0) 31,09(10)  =  11111,00010(2) переведем  целую  часть: 31  /  8 = 3 (в остатке 7) 3  /  8 = 0 (в остатке 3) переведем  дробную  часть: 0,09  *  8 = 0,72  (целая  часть 0) 0,72  *  8 = 5,76 (целая часть 5) 31,09(10)  =  37,05(8) переведем  целую  часть: 31  /  16 = 1 (в остатке 15 - f) 1  /  16 = 0 (в остатке 1) переведем  дробную  часть: 0,09  *  16 = 1,44 (целая часть 1) 0,44  *  16 = 7,04 (целая  часть  7) 31,09(10)  =  1f,17(16)