<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
1)2 2)1 3)3 4)3 5)1 6)1 7)1 8)2 9)2 10) Цвет текста, размер текста, выравнивание.
11)для показания ошибок в правописании.
12)Изменения документа.
Var
text : string;
i : integer;
begin
write('Введите текст: ');
readln(text);
write('Результат: ');
for i := length(text) downto 1 do
write(text[i]);
<span>end. </span>
Размер алфавита = 26+10 = 36 символов, ближайшая степень двойки, которая больше или равна 36 - 6 (2^6=64), значит, каждый символ кодируется 6 битами. 180*6=1080 бит.