<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№4</u>
begin
var F:=ArrRandom(100,-50,50); F.Println;
Writeln('Сумма отрицательных элементов: ',F.Where(x->x<0).Sum)
end.
<u>Пример</u>
16 -23 -23 -31 0 -24 44 9 18 -48 26 27 24 8 -41 -37 35 -15 -36 8 -32 -3 -47 39 48 -4 45 -39 -1 -23 15 -44 26 21 -22 49 10 49 41 -29 23 -9 21 25 41 -13 17 19 -27 -49 -20 -46 43 8 -25 -32 -26 -11 -29 -47 -19 33 -40 -10 -12 19 -49 -48 -21 -39 4 37 -6 43 36 28 27 -22 49 10 29 -24 39 -3 48 11 -36 -33 -4 -40 25 -30 27 37 41 40 -20 -20 -13 -29
Сумма отрицательных элементов: -1374
<u>№5</u>
begin
var С:=ArrRandom(50,-10,10); С.Println;
Writeln('Сумма положительных элементов до первого нуля: ',
С.Where(x->x>=0).TakeWhile(x->x<>0).Sum)
end.
<u>Пример</u>
9 -5 -6 8 -6 -6 2 -10 1 -2 10 1 -7 -1 7 -1 0 -5 2 0 5 10 -10 6 -3 -9 -7 -2 9 -5 10 5 -8 4 5 -6 6 -7 -10 -6 -1 -9 -10 10 2 6 -3 7 -8 6
Сумма положительных элементов до первого нуля: 38
<u>№6</u>
begin
var C:=ArrRandom(20,-50,50); C.Println;
var D:=C.Where(x->x>0).ToArray; D.Println
end.
<u>Пример</u>
-38 -34 -49 -21 1 -1 -7 -44 -43 -40 8 -47 -49 44 6 31 -33 39 22 -18
1 8 44 6 31 39 22
Var
a : array [1..16] of integer;
i, c : integer;
begin
randomize;
for i := 1 to 16 do
a[i] := random (41) - 20;
c := 0;
for i := 1 to 16 do
if a[i] < 0 then c := c + 1;
writeln (c);
end.
Семейство ОС Windows - серверные(Windows Server 2003,2008,2012, 2016) и клиентские (Windows 7, 8, 8.1, 10 )
Нужно уберегать, в первую очередь, от электростатических зарядов при установке.
А что не понятного то? элементарно все.
я не понял какой именно номер надо по этому все разберу.
номер 2:
подставляй да и только
1-не подходит в конце код заканчивается на 1110,а как известно ни одного буквы заканчивающейся на 10 или 1110 или 110-нет, 2-не подходит, начало кода 1000.... а как известно ни одной буквы которая начинается на 10 нет, 3-подходит, код можно разделить по буквам 11-л 00-о 01-к 00-о 11-л 010-м 01-к, 4-не подходит код так же начинается на 10.
ответ:3
______
номер 3:
тоже все просто
тут достаточно знать как переводить из бит в байт, из байта в килобайт
а так же формулу для подсчета размера файла пусть v-это размер файла, u-скорость соединения, а t-время, тогда формула будет такая V=u*t
переведем минуту в секунды t=1мин=60сек
V=512 000бит/сек *60сек= 30 720 000бит(т.к нам нужны килобайты, переводим)=30 720 000бит/8/1024= 3750кб
ответ:3750
_________
номер 4
еще проще чем два предыдущих
В этом задании ответ (3)
объясню:
изначально подснежник.doc был: D:\2013\Весна\Подснежник.doc
потом создали подкаталог "Май", т.е говоря другими словами создали папку, и засунули туда Подснежник.doc и расположения стало таким: D:\2013\Весна\Май\Подснежник.doc , т.е чтобы узнать первоначальное местоположение мы делаем шаг назад