Очень быстро программу ВБ участник олимпиады может получить от ста до двухсот . если участник получил от ста до 149 порог не пройден, 150-169- удовлетворительно, 170 - 190 хорошо, 191 - 200 отлично
Var arr : array [1..30] of integer; sum, count, i, a : integer; begin read (a); for i := 1 to 30 do read (arr[i]); count := 0; sum := 0; for i := 1 to 30 do begin if arr[i] < 0 then sum := sum + arr[i] else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1; end; writeln (sum, ' ', count); end.
var arr : array [1..30] of integer; i : integer; begin for i := 1 to 30 do read (arr[i]); for i := 30 downto 2 do if arr[i] * arr[i - 1] < 0 then // проверка знака begin writeln (i - 1); halt; // Остановка программы end; writeln ('-1'); // Таких нет end.
1)вирусы Все существующие компьютерные вирусы можно разделить на несколько групп по производимым ими действиям и «образу жизни».Бывают совершенно безвредные вирусы.Они размножаются, живут своей неведомой людям жизнью и никак себя не проявляют. Как правило, единственным побочным эффектом их существования является сокращение свободного пространства на диске. Правда, это не является сколько-нибудь критичным – в большинстве случаев вирусы весьма компактны.Следующей ступенью являются, так называемые, неопасные вирусы.Они уже стараются заявить пользователю о себе во весь голос: используют различные звуковые, графические или текстовые эффекты.Например:проигрывают в определенное время какую–нибудь мелодию, выводят на экран различные надписи, могут даже начать переворачивать экран вверх ногами или устроить настоящий «буквопад» – находящиеся на экране символы будут на глазах изумленного и напуганного пользователя сваливаться вниз. При этом, все данные на компьютере остаются в целости и сохранности, а программы продолжают нормально работать. К сожалению, создатели вирусов не ограничиваются описанными выше –безобидными шутками.Подавляющее большинство распространенных вирусов могут нарушать нормальную работу компьютера, вызывать зависание определенных программ. Бывают и более страшные случаи, когда в вирус заложены алгоритмы, уничтожающие или искажающие данные на диске машины. Таков, например, вирус под названием OneHalf («половина»), вызвавший несколько лет назад настоящую эпидемию.Незаметно для пользователя он постепенно зашифровывал содержимое жесткого диска, попутно вызывая некоторые побочные эффекты типа участившихся зависаний Windows, а при определенных условиях вирус мог «забыть» ключ к этому шифру.Более же примитивные вирусы могут попросту стереть все, не понравившиеся им, файлы, либо записать в них произвольный мусор вместо данных. Нельзя не учитывать, что наделать бед и, казалось бы, безопасные вирусы: известны случаи, когда программистские ошибки в них приводили к фатальным последствиям.Периодически появляются различные сведения о вирусах, якобы портящих мониторы, выводящих из строя жесткие диски и наносящих другие «физические увечья» компьютеру. Но, так как «живьем» их никто не видел, это вполне можно считать одной из легенд компьютерного мира. За исключением единственного случая.Летом 1998 г. из Юго–Восточной Азии пришел вирус Win95.CIH, вызвавший в Европе серьезную эпидемию. Вирус разрушал BIOS, после чего из строя выходила системная плата компьютера. В большинстве современных компьютеров flash–BIOS сделан перезаписываемым, чем и воспользовались авторы вируса. В процессе его работы вместо BIOS записывается произвольный мусор, причем так, что многие системные платы уже не поддаются восстановлению.К чести отечественных вирусологов нельзя не отметить, что именно они первыми сумели побороть эту заразу – специалисты компании «Лаборатория Касперского» нашли лечения вируса практически сразу после его появления.
123
321
567
Объяснение: