Только мне нужно на паскале, а не на АЯ. Только номер 7.

По горизонтали:
4. Устройство для записи, считывания и длительного хранения информации на гибких магнитных дисках (дискетах).
7. Устройство, предназначенные для вывода на экран текстовой и графической информации.
9. Ячейки памяти, которые служат для кратковременного хранения и преобразования данных и команд.
11. Линия связи к которой подключена сеть.
13. Устройство для записи, считывания и длительного хранения информации на жестких магнитных дисках.
14. Устройство ввода звуковой информации.
15. Системная магистраль передачи данных.

По вертикали: 
1. Устройство для вывода чертежей на бумагу.
2. Электронная схема, которая управляет работой какого-либо внешнего устройства.
3. Устройство для обмена информацией между компьютерами через телефонные, оптоволоконные и др. сети.
5. Вс процессор, предназначенный для выполнения математических и логических действий.
6. Небольшая электронная схема, выполняющая все вычисления и обработку информации.
8. Устройство вывода звуковой информации.
10. Устройство для считывания графической и текстовой информации в компьютер с бумажных носителей информации.
12. Печатающее устройство, предназначенные для вывода информации на бумагу.
14. Манипулятор для ввода информации в компьютер.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var A:=MatrGen(6,7,(i,j)->Sin(i+1)+Cos(3*(j+1)));
  A.Println(10,6); Writeln(70*'-');
  var B:=A.ElementsWithIndexes.Where(t->t[1].IsEven and t[2].IsEven)
      .Select(t->t[0]).ToArray;
  B.Println;
  var m:=B.Where(t->t>0).DefaultIfEmpty.Average;
  Writeln('Искомое среднее равно ',m);
  var f:=OpenWrite('MyFile.txt');
  for var i:=0 to A.RowCount-1 do begin
    for var j:=0 to A.ColCount-1 do
      Write(f,A[i,j],' ');
    Writeln(f);
    end;
  Writeln(f);
  for var i:=0 to B.Length-1 do Write(f,B[i],' ');
  f.Close;
end.