1)вирусы Все существующие компьютерные вирусы можно разделить на несколько групп по производимым ими действиям и «образу жизни».Бывают совершенно безвредные вирусы.Они размножаются, живут своей неведомой людям жизнью и никак себя не проявляют. Как правило, единственным побочным эффектом их существования является сокращение свободного пространства на диске. Правда, это не является сколько-нибудь критичным – в большинстве случаев вирусы весьма компактны.Следующей ступенью являются, так называемые, неопасные вирусы.Они уже стараются заявить пользователю о себе во весь голос: используют различные звуковые, графические или текстовые эффекты.Например:проигрывают в определенное время какую–нибудь мелодию, выводят на экран различные надписи, могут даже начать переворачивать экран вверх ногами или устроить настоящий «буквопад» – находящиеся на экране символы будут на глазах изумленного и напуганного пользователя сваливаться вниз. При этом, все данные на компьютере остаются в целости и сохранности, а программы продолжают нормально работать. К сожалению, создатели вирусов не ограничиваются описанными выше –безобидными шутками.Подавляющее большинство распространенных вирусов могут нарушать нормальную работу компьютера, вызывать зависание определенных программ. Бывают и более страшные случаи, когда в вирус заложены алгоритмы, уничтожающие или искажающие данные на диске машины. Таков, например, вирус под названием OneHalf («половина»), вызвавший несколько лет назад настоящую эпидемию.Незаметно для пользователя он постепенно зашифровывал содержимое жесткого диска, попутно вызывая некоторые побочные эффекты типа участившихся зависаний Windows, а при определенных условиях вирус мог «забыть» ключ к этому шифру.Более же примитивные вирусы могут попросту стереть все, не понравившиеся им, файлы, либо записать в них произвольный мусор вместо данных. Нельзя не учитывать, что наделать бед и, казалось бы, безопасные вирусы: известны случаи, когда программистские ошибки в них приводили к фатальным последствиям.Периодически появляются различные сведения о вирусах, якобы портящих мониторы, выводящих из строя жесткие диски и наносящих другие «физические увечья» компьютеру. Но, так как «живьем» их никто не видел, это вполне можно считать одной из легенд компьютерного мира. За исключением единственного случая.Летом 1998 г. из Юго–Восточной Азии пришел вирус Win95.CIH, вызвавший в Европе серьезную эпидемию. Вирус разрушал BIOS, после чего из строя выходила системная плата компьютера. В большинстве современных компьютеров flash–BIOS сделан перезаписываемым, чем и воспользовались авторы вируса. В процессе его работы вместо BIOS записывается произвольный мусор, причем так, что многие системные платы уже не поддаются восстановлению.К чести отечественных вирусологов нельзя не отметить, что именно они первыми сумели побороть эту заразу – специалисты компании «Лаборатория Касперского» нашли лечения вируса практически сразу после его появления.
Вот программа С использованием файлов program proizvedenie; uses crt; var a:array[1..1000] of real; amax,amin,p:real; i,n,i1,i2:integer; inp,outp:text; begin assign(inp,'input.txt'); assign(outp,'output.txt'); readln(n); p:=1; reset(inp); for i:=1 to n do read(inp,a[i]); close(inp); amin:=a[1]; for i:=1 to n do if abs(amin)>=abs(a[i]) then begin amin:=a[i]; i1:=i; end; amax:=a[1]; for i:=1 to n do if abs(amax)<=abs(a[i]) then begin amax:=a[i]; i2:=i; end; if (i2>i1) and (i1+1<>i2) then for i:=i1+1 to i2-1 do p:=p*a[i] else if (i1>i2) and (i1-1<>i2) then for i:=i1-1 downto i2+1 do p:=p*a[i] else begin write(0); exit; end; rewrite(outp); write(outp,p); close(outp); end. Без файлов program proizvedenie; uses crt; var a:array[1..1000] of real; amax,amin,p:real; i,n,i1,i2:integer; begin p:=1; readln(n); for i:=1 to n do read(a[i]); amin:=a[1]; for i:=1 to n do if abs(amin)>=abs(a[i]) then begin amin:=a[i]; i1:=i; end; amax:=a[1]; for i:=1 to n do if abs(amax)<=abs(a[i]) then begin amax:=a[i]; i2:=i; end; if (i2>i1) and (i1+1<>i2) then for i:=i1+1 to i2-1 do p:=p*a[i] else if (i1>i2) and (i1-1<>i2) then for i:=i1-1 downto i2+1 do p:=p*a[i] else begin write(0); exit; end; write(p); end.
Ошибки: 1)В разделе описания переменных var нет файловых переменных input и output; 2)В строке 24 нет begin...end; 3)Сравнивать нужно модули переменных amin и amax с модулем a[i]; +++Много лишних переменных
var
i, sum: integer;
begin
for i := 11 to 19 do
if(i mod 2 <> 0) then sum := sum + i;
writeln(sum);
end.