Hama micro-usb stream как настроить мой микрофон(он на картинке) в бандикаме
Может знает кто

Begin
  var n:=ReadInteger('n = ');
  var m:=ReadInteger('m = ');
  Writeln('Исходная матрица:');
  var a:=MatrRandom(n,m,-20,20); 
  a.Println(4);
  for var i:=0 to a.RowCount-1 do
    for var j:=0 to a.ColCount-1 do
      if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;
  Writeln('Измененная матрица:');
  a.Println(4)
end.

Пример:
n =  4
m =  5
Исходная матрица:
   7  -8  -7  -5  -7
   2   4  -3  -2 -13
  14   5 -12   9  20
  12  11  18  -3   7
Измененная матрица:
   1   0   0   0   0
   1   1   0   0   0
   1   1   0   1   1
   1   1   1   0   1

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.