Введите с клавиатуры построчно в двумерный массив числовую матрицу размером 4х4. разверните её по столбцам в одномерный массив. запишите массив в текстовый файл.

Pascalabc.net 3.4.0, сборка 1670 от 23.05.2018 внимание! если программа не работает, обновите версию! begin   var a: =readmatrinteger(4,4);   var b: =a.elementsbycol.toarray;   writealltext('result.txt',b.joinintostring) end.

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

 

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.