Можно заменить на слово noun
<em>// PascalABC.NET 3.2, сборка 1482 от 12.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
if s.Count=0 then Writeln('Нет отрицательных элементов')
else begin
Write('Отрицательные элементы: ');
s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
end
end.
<u>Пример</u>
*** Исходный массив ***
-62 13 -44 78
-19 73 92 -61
47 -13 3 43
----------------
Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]
1. 2*32 = 62 байт
2. ((1626-1536)*8*1024)/(32*60*24) = 16 бит
3. 5 бит, но если меньше 32, то достаточно и 4 бит
4.
5.
8*168 = 1344 бит = 168 байт
6.
7.
5*6 = 30 = 30/8 = 4 байта
4 * 125 = 500 байт
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
Микрофон - вывод звуковой информации, сканер = ввод текстовой, графической и числовой информации, наушники - вывод звуковой информации, процессор - обработка числовой информации, принтер - вывод текстовой, числовой и графической информации