1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>
В linux монолитное ядро, в windows гибридное ядро.
Операционные системы с ядром linux имеют лицензию gnu gpl, в windows проприетарная лицензия
В linux два уровня ос(kernel mode, user mode), в windows данных уровней 5(или 6)
Различаются также подходом к разграничению прав пользователей
Ответ:а) Ты общаешься с друзьями и получаешь новую информацию о их интересах например.
В школе ты получаешь новую новую информацию.
б)Когда один из твоих друзей или знакомых сообщил что какой то твой друг соврал тебе.
Или когда в школе ты получил информацию и тебе через год объясняют эту же тему но добавляется новая информация (Например: про расстояние)
( ПРИМЕРОМ (Б) Я НЕ КОГО НЕ ХОЧУ ОБИДИТЬ.)
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9