var a:array[1..20] of integer; i,arf,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.
Смотря что ддосить, какой у вас бот нет, сколько ботов в нём (инфицировано) и какой вид атаки Вы применяете. Почитайте про Zevs botnet, весьма неплохой.. Когда то я пользовался Ddos black energy. В общем всё в Ваших руках:)
Подходит 1, получается Лиходеев не виноват, преступление совершили Кургин и Брагин
Готово. Не пугайтесь swap, просто благодаря ему "пузырёк" выглядит лучше. Программа во вложении.
UPD: Чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.