Нужно максимально оперативно решить!

Uses crt; var a: array[1..10]of integer;       q,w,i,k,j: integer;   begin   randomize;   for q: = 1 to 10 do     begin    a[q] : = random(256);               write(a[q]: 4)        end; for i : = 1 to 9 do         for j : = 1 to 10 - i do             if a[j] > a[j + 1] then begin                 k : = a[j];                 a[j] : = a[j + 1];                 a[j + 1] : = k;             end; for i: =1 to 10  do w: =(a[1]+a[10])/2; write(w)

Доброго времени суток : d считайте вам повезло и я как раз знаю ответ на этот вопрос.     кто такие разработчики компьютерных вирусов? это группа людей, по большей части аналитиков с навыками реверс-инжиниринга. занимаются исключительно воровством и (или) незаконным проникновением с последующей порчей или опять же кражей  конфиденциальных данных. редко для эксплуатации вычислительного потенциала : d       кто такие компьютерные пираты? это группа людей распространяющие программные продукты (софт, игры и тд) не имея на то права! вывод: фактически они представляют собой две разные организации, но не редко когда одной организации другая ; ) всего доброго.