<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
var s:=a.Where(t->t>0); // последовательность положительных
Writeln('Положительных: ',s.Count);
Writeln('Максимальный: ',a.Max);
Writeln('Сумма положительных: ',s.Sum);
Writeln('Ср.арифм. положительных: ',s.Average);
a.Transform(t->t.IsEven?2*t:t+1); a.Println
end.
<u>Пример</u>
-6 28 31 83 -25 -17 8 0 11 13
Положительных: 6
Максимальный: 83
Сумма положительных: 174
Ср.арифм. положительных: 29
-12 56 32 84 -24 -16 16 0 12 14
Первый вариант линейки разработал английский математик-любитель Уильям Отред в 1622 году.
С Р Е Д А
сре , еда , ред , сда , дас , рес , аде , дер , дар , сер , сар , рад , рас , ера , еса ,асе , - вроде бы все 16 вышло
8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536
Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end.
Если на сайт, просто скопируй в паскаль