<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-3,3); a.Println;
var s:=a.Select((x,i)->(x,i)).Where(t->t[0]=0).ToArray;
if s.Length>0 then begin
var b:=ArrGen(s.Length,i->s[i][1]+1).ToArray;
b.Println(',')
end
else Writeln('Нет нулевых элементов')
end.
<u>Пример</u>
n= 20
1 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -1
3,6,11
Всего 20 символов(включая пробелы), 1 символ - 1 байт, значит займет 20 байт или 160 бит
Правильный ответ - 4) микрофон, потому что когда мы говорим, он преобразует эти колебания в плавно изменяющиеся с течением времени
напряжение.
Ответ: 4
Program sinys;
var m,i:integer;x:real;mas:array [1..1000] of integer;
begin
x:=0;
readln(m);
for i:=1 to m do
x:=x+(1/sin(i));
writeln(x)
end.
2048кб делим на 16=128
4096кб делим на 128=32с