Сделайте сайт через блокнот тема «мировые информациионные войны»

1. 28 байт 2.11001  вот так как-то                                                                                                                                                

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,m,-10,99);   a.println(4); writeln(4*a.colcount*'-');   var l: =new list< integer> ; // для номеров подходящих строк   for var i: =0 to n-1 do       if a.row(i).any(t-> t< =0) then l.add(i);   n: =l.count;   if n=0 then begin       writeln('все строки содержат только положительные элементы');       exit       end;   var b: =new integer[n,m];   for var i: =0 to n-1 do       b.setrow(i,a.row(l[i]));   writeln('*** результирующая матрица ***');   b.println(4) end. пример количество строк и столбцов в матрице: 5 4 *** исходная матрица ***   12  -9  64  34   53  64  49  74   33  27  -6  72   91  14  23  16   15  64    9  77 *** результирующая матрица ***   12  -9  64  34   33  27  -6  72