<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
Приведенную формулу можно скопировать в ячейки A4 (получится =2*$C3) и D2 (получится =2*$C1). Нельзя скопировать в ячейки D1 и A1, так как номер строки в формуле задается с помощью относительной адресации, т.е. при копировании из 4-ой строки в 1-ю этот номер становится = 0 (это ошибка).
Петя в понедельник занёс на свой компьютер вирус(благодаря флешке своего одноклассника).
Вопрос: сколько вирусов будет на его компьютере на следующий понедельник(включительно),если...
Дано: вирус создаёт свою копию при каждом включении компьютера и каждая копия создаёт свою копию. Петя включает свой компьютер раз в день.
Решение:
2 4 8 16 32 64 умножить на 2 =128
Ответ: 128 вирусов у Пети на компьютере через неделю.