1.записати двійкове кодування слова "file".Скільки це слово містить байтів. 2.Якщо на сторінці 325 символів,то це скільки буде байт(біт) .

//PascalABC.NET
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.

const
    N = 40;
var
    //a : array[1..N] of integer;
    i, s, r, x : integer;
    sr: real;
begin
    //Для любителей заполнять вручную:
    //for i := 1 to 40 do readln(a[i]);
   
    //Заполним массив 40-ка случайными значениями
    var a := ArrRandomInteger(N+1, -10000, 10000);
    //Гарантировано разместим число, оканчивающееся на 7
    a[Random(0,40)] := -10 * Random(0,999) - 7;
    //Уберем лишний элемент, созданный автоматически
    a[0] := 0;
    //Напечатаем массив
    a.println;
    writeln('----------------');
    //Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
    //число, учтём его
    foreach i in a do
        if (i < 0) and (i mod 10 = -7) then begin
            r += i; s += 1; write(i,' ')
        end;
    //Выведем среднее арифметическое
    writeln('Ср.ар: ',r/s)
end.

// PascalABC.NET 3.3, сборка 1559 от 01.11.2017
// Внимание! Если программа не работает, обновите версию!

function MasInput(s:string; m,n:integer):array[,] of integer;
begin
  Writeln('Введите построчно элементы массива ',s,'[',m,',',n,']');
  Result:=ReadMatrInteger(m,n)
end;

procedure MasPrint(s:string; a:array[,] of integer; k:integer:=5);
begin
  Writeln('*** Полученный массив ',s,' ***');
  a.Println(5);
  Writeln(5*a.ColCount*'=')
end;

procedure MasTransform(var a:array[,] of integer);
begin
  var s:=a.Cols.Select(col->col.Any(t->t=0));
  var k:=s.Where(t->t).Count;
  if k>0 then begin
    var ns:=a.ColCount-1; // номер передающей колонки
    var s1:=s.Numerate.Where(t->t[1]).Select(t->t[0]-1);
    var St:=new Stack<integer>;
    foreach var t in s1 do St.Push(t);
    SetLength(a,a.RowCount,a.ColCount+k);
    var nt:=a.ColCount-1; // номер принимающей колонки
    for var i:=ns downto 0 do
      if St.Count>0 then
        if St.Peek=i then begin
          a.SetCol(nt,ArrFill(a.RowCount,1));
          a.SetCol(nt-1,a.Col(i));
          nt-=2; St.Pop
          end
        else begin
          a.SetCol(nt,a.Col(i));
          nt-=1
          end
    end;
end;
 

begin
  var a:=MasInput('A',4,5);
  MasTransform(a);
  MasPrint('A',a);
  var b:=MasInput('B',5,5);
  MasTransform(b);
  MasPrint('B',b);
  var c:=MasInput('C',5,4);
  MasTransform(c);
  MasPrint('C',c)
end.

Пример
Введите построчно элементы массива A[4,5]
3 5 6 3 8
6 4 0 1 3
-2 0 0 4 1
2 3 5 -7 0
*** Полученный массив A ***
    3    5    1    6    1    3    8    1
    6    4    1    0    1    1    3    1
   -2    0    1    0    1    4    1    1
    2    3    1    5    1   -7    0    1

Введите построчно элементы массива B[5,5]
1 6 3 9 2
2 4 8 5 7
1 3 1 4 5
3 5 7 6 4
8 9 2 7 3
*** Полученный массив B ***
    1    6    3    9    2
    2    4    8    5    7
    1    3    1    4    5
    3    5    7    6    4
    8    9    2    7    3

Введите построчно элементы массива C[5,4]
2 3 -1 -2
0 6 7 9
3 4 8 6
7 -2 2 -5
4 0 1 7
*** Полученный массив C ***
    2    1    3    1   -1   -2
    0    1    6    1    7    9
    3    1    4    1    8    6
    7    1   -2    1    2   -5
    4    1    0    1    1    7