<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(2); Writeln(2*a.ColCount*'-');
var b:=a.ElementsByRow.Where(x->x=1).ToArray;
var k:=b.Count; b.Println;
Writeln('k=',k)
end.
<u>Пример</u>
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
0 0 1 1 1 1 1 1 0 0 1 0
0 1 1 1 0 0 1 1 1 0 1 0
1 0 0 1 0 1 0 0 0 0 0 0
1 0 0 0 0 1 0 1 0 0 1 0
1 1 1 1 0 1 1 0 1 0 0 1
------------------------
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
k=29
160 бит (20 байт)........................................................................................
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var (kp,kn):=(a.Where(t->t>0).Count,a.Where(t->t<0).Count);
Writeln('Положительныx: ',kp,', отрицательных: ',kn);
Writeln('Положительных больше, чем отрицательных на ',kp-kn)
end.
<u>Пример</u>
38 -15 -28 18 48 41 21 -43 11 26
Положительныx: 7, отрицательных: 3
Положительных больше, чем отрицательных на 4
Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я помогу тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана.......
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо