Інформатика 10101011²*1101²

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

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Матрица A ***');
  var a:=MatrRandom(m,n,10,99); a.Println(3);
  var b:=new integer[m,n];
  var c:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do
      (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
  Writeln('*** Матрица  B ***'); b.Println(3);  
  Writeln('*** Матрица  C ***'); c.Println(3);
  Writeln(3*n*'-');
  Writeln('Количество нулевых элементов в С: ',
    c.ElementsByRow.Where(t->t=0).Count);
  var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
  Writeln('Сумма всех элементов матрицы B: ',sb);
  Writeln('Сумма всех элементов матрицы C: ',sc);
  if sb>sc then Writeln('Сумма элементов матрицы B больше')
  else
    if sc>sb then Writeln('Сумма элементов матрицы C больше')
    else Writeln('Суммы элементов матриц B и С равны')
end.

Общ.утв - Все люди любят когда их хвалят Каждый человек на земле может путешевствоватьВсе животные имеют обмен веществ Частн.утв - Некоторые животные уже вымерлиНекоторые люди болеют раком Некоторые бабочки не могут летать из - за нехватки пыльцы на крыльях Обществ.сужНи один из людей не может слетать на солнце Ни один из животных не может говорить по человечьему языку (кроме попугая)Ни один из новорожденных детей не может бегать Частн.сужНекоторые компьютеры не являются рабочими Некоторые животные не являются вымершимиНекоторые люди не являются животноводами