Компьютер хранит, передаёт и обрабатывает информацию в виде нолей «0» и единиц «1», то есть используется двоичный код и двоичная система счисления. Например, десятичное число «9» он видит как двоичное число «1001».
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); var k:=ReadInteger('Номер строки k для обмена:')-1; Writeln('*** Исходная матрица ***'); var rmatr:=MatrRandom(n,m,-99,99); rmatr.Println(4); Writeln(4*rmatr.ColCount*'-'); var j:=0; for var i:=1 to Min(n,m)-1 do if rmatr[i,i]>rmatr[j,j] then j:=i; if k<>j then rmatr.SwapRows(k,j); Writeln('*** Полученная матрица ***'); rmatr.Println(4) end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*m*'-'); var s:=''; for var i:=0 to n-1 do if a.Row(i).Pairwise.Select(t->Sign(t[0])<>Sign(t[1])).All(t->t=True) then s+=(i+1)+' '; if s.Length=0 then Writeln('Нет искомых строк') else Writeln('Номера строк: ',s) end.
Компьютер хранит, передаёт и обрабатывает информацию в виде нолей «0» и единиц «1», то есть используется двоичный код и двоичная система счисления. Например, десятичное число «9» он видит как двоичное число «1001».