2. Ви плануєте класом піти в похід до лісу. Знайдіть відомості про орієнтування в лісі без компаса та прийоми виживання
у складних погодних умовах. Створіть у текстовому процесорі
пам'ятку зі знайденими відомостями. У табличному процесорі ви-
конайте розрахунки кількості питної води, потрібної для походу
залежно від ємності упаковок​. Сегодня надо

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

procedure MatrixCreate(m,n:integer; var A:array[,] of integer);
begin
  A:=MatrRandom(m,n,-50,50);
end;

procedure MatrixOutput(A:array[,] of integer);
begin
  A.Println(4)
end;

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:array[,] of integer;
  MatrixCreate(m,n,a);
  Writeln('*** Исходная матрица ***');
  MatrixOutput(a);
  a.Transform(t->t>0?1:t);
  Writeln('*** Полученная матрица ***');
  MatrixOutput(a);
end.

using System;
using System.IO;

namespace FileApp
{
    class MainClass
    {
        private const string FILE_PATH = ""; //Запишите сюда путь к файлу
        private const string PHRASE = ""; //Запишите сюда заданный текст

        public static void Main(string[] args)
        {
            string[] rows = File.ReadAllLines(FILE_PATH);

            foreach (var row in rows)
            {
                //Если нужно сделать это все независимым к регистру, то раскоментируйте это и  закоментируйте вариант нижу
                //if(row.ToLower().Contains(PHRASE.ToLower()))
                //{
                //  Console.WriteLine(row);
                //}

                if (row.Contains(PHRASE))
                {
                    Console.WriteLine(row);
                }
            }
        }
    }
}