<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// №1
var a:=ArrRandom(15,-50,50); a.Println;
a.IndexesOf(t->t.IsEven).Select(t->t+1).Println;
// №2
var b:=ArrRandom(ReadInteger('n='),0,86); b.Println;
a.Where(t->t mod 3=0).Sum.Println;
// №3
var c:=ReadArrInteger(ReadInteger('m='));
c.Sum.Println;
// №4
var d:=ArrRandom(ReadInteger('n='),-60,60); d.Println;
d.Where(t->t>0).Sum.Println
end.
<u>Пример</u>
41 37 -10 7 33 -8 49 -1 -14 26 -17 -23 47 -25 7
3 6 9 10
n= 13
0 63 53 71 35 56 34 86 31 15 84 74 35
33
m= 8
13 -12 54 11 47 0 42 100
255
n= 18
52 39 -43 48 -34 -56 -14 28 -51 48 -56 -21 60 -19 -5 -19 43 44
362
1. Оперативная: а, г, д, е
Долговременная: б, в, ж
2. "0" или"1" - это 1 бит. 8 бит = 1 байту. отделим по 8 "0" и "1", начиная с конца. получится 4 разделения, т.е. 4 байта.
3. 1024 бит/8 = 128 байт. если запись велась с 10, то адрес последнего будет 10+128 = 138.
4. флеш-карта, дискета, CD, DVD, съемный жесткий диск.
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
4мб=4*1024кб=4*1024*1024б=4*1024*1024*8=
2
=33 554 432