<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 1024 * 64 * 64 = 4194304 шт
i = 8 бит
I - ?
Решение:
I = K * i = 4194304 * 8 бит = 33554432.0 бит
33554432.0 бит = 4194304.0 байт = 4096.0 Кбайт = 4.0 Мбайт
// PascalABC.NET 3.0, сборка 1111
begin
var n:=ReadInteger('Длина последовательности= ');
var a:=ReadArrReal('Вводите члены последовательности'+#13#10,n);
var k:=a.TakeWhile(x->x<>0).Count;
if k=n then Writeln('Ноль в последовательности не найден')
else Writeln('Количество членов, включая первый нулевой: ',k+1)
end.
<u><em>Тестовое решение:</em></u>
Длина последовательности= 10
Вводите члены последовательности
-5.2 7 2.7 -3.18 6.11 0 -1.02 3.14 -3.8 -4
Количество членов, включая первый нулевой: 6