Решение в приложении ----------------
<span> // 1 гриб</span><span>
// 2-4 гриба</span><span>
// 5-10 грибов</span><span>
// 11-20 грибов исключение</span><span>
// 21 гриб</span><span>
// 22-24 гриба</span><span>
// 25-30 грибов</span><span>
// 31 гриб</span><span>
// 32-34 гриба</span><span>
// 35-40 грибов</span><span>
// 41 гриб</span><span>
// 42-44 гриба</span><span>
// 45-50 грибов</span><span>
// 51 гриб
как видим из вышеизложенного, мы должны только запрограммировать окончание первого десятка и исключение 11-20, которое будет портить нам малину, т.к. там одно окончание будет.
А остальное берем целочисленный остаток от деления на 10, и добавляем нужное окончание.</span><span />
<em>// PascalABC.NET 3.2, сборка 1416 от 26.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum)
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
5 -40 29 34 -77 19 80
4 -13 9 13 -37 -3 -38
-12 -35 44 -90 -50 66 -58
-79 -62 79 96 -36 -11 13
----------------------------
S=491
1) он круглый как шар, он крутится как юла, эго съедает компьютер.
Ответ: диск
2) мы ходим в неё как домой, а людей в ней любим как родителей.
Ответ: школа
3) Мышка, но не живая.
Ответ: мышь
Начнём по простому.
Сначала рассчитаем объем файла в битах.
512000*16 = 8192000 - бит.
Далее, в одном байте - 8 бит.
А в одном килобайте - 1024 байт.
Следовательно, в одном килобайте - 8*1024 = 8192 бит.
Значит, объем файла:
8192000/8192 = 1000 килобайт.