// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(n,m,0,5); a.Println(2); Writeln(2*a.ColCount*'-'); for var i:=0 to n-1 do if i.IsEven then Writeln('Строка ',i+1,', ', a.Row(i).Where(t->t=1).Count,' единиц') else Writeln('Строка ',i+1,', ',a.Row(i).Where(t->t=0).Count,' нулей') end.
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,m,0,5);
a.Println(2); Writeln(2*a.ColCount*'-');
for var i:=0 to n-1 do
if i.IsEven then Writeln('Строка ',i+1,', ',
a.Row(i).Where(t->t=1).Count,' единиц')
else Writeln('Строка ',i+1,', ',a.Row(i).Where(t->t=0).Count,' нулей')
end.