Постройте таблицу истинности

Объяснение:

Адрес файла в сети интернет выглядит так: ПРОТОКОЛ://СЕРВЕР/ПУТЬ/ФАЙЛ Сначала указывается протокол http (Б), далее – двоеточие и 2 слеша (Г). После этого указывается название сервера ftp.net (Ж и Д). Так как нет указания на дополнительные папки, файл находится в корне сервера. Значит, далее идет слеш (В) и название файла www.txt (Е и А). Таким образом, последовательность букв БГЖДВЕА кодирует адрес указанного файла. ОТВЕТ: БГЖДВЕА

Источник: http://worksbase.ru/informatika/kak-reshat/245-dostup-k-failu.html

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

begin
  var m:=8; var n:=9;
  Writeln('*** Исходная матрица D[',m,',',n,'] ***');
  var d:=MatrRandom(m,n,-100,100);
  d.Println(5); Writeln(5*n*'-');
  Writeln('Столбцы, в которых отрицательных элементов больше положительных');
  for var i:=0 to n-1 do
    if (d.Col(i).Where(x->x<0).Count)>(d.Col(i).Where(x->x>0).Count)
    then Print(i+1)
end.

Пример
*** Исходная матрица D[8,9] ***
   10  -41   26    3   98   64   -9  -11  -91
   -9  -43   44   -1   59  -74  -86  -61   -6
   39   72  -67   30  -65 -100  -51  -98  -29
   67  -43  -67   95   15  -30   11   14   51
  -66  -64   -7  -81   15   56  -20   46  -58
   12   19  -33  -92  -58   69   23  -43  -35
   36   80  -76   25  -47   95   -7   24  -69
   77   -4   42  -26   88  -56  -25   81  -98

Столбцы, в которых отрицательных элементов больше положительных
2 3 7 9