8 класс((
Номер 4 и просто ужас какой-то эта инфоматика(

Сегодня Counter Strike: Global Offensive – одна из самых популярных видеоигр в мире. Она занимает первые строчки в Steam, а о ее существовании знает каждый студент и школьник.

Однако 18 лет назад, когда первая версия игры только появилась, никто не мог предсказать такого успеха.

Counter-Strike – онлайн-шутер, суть которого заключается в противостоянии двух команд – террористов и контртеррористов (спецназа). У обеих команд есть цели в раунде, завершив которые, либо полностью уничтожив команду противника, они получают матч-поинт. Выиграв определенное количество раундов, команда выигрывает матч. Самый популярный сценарий – когда террористам нужно заложить бомбу в определенной точке, а спецназу ее обезвредить.

Но с чего же началась история уже ставшей легендарной серии?

Идея видеоигры о противостоянии террористов и спецназовцев возникла в конце 90-х, то есть до теракта 11 сентября и тотальной террористической угрозы. Ее создатель, канадец вьетнамского происхождения Мин «Gooseman» Ли, делал не коммерческий продукт об актуальной и острой проблеме, а модификацию – мод – другой игры на интересующую его тематику.

До CS мультиплеерные баталии проходили в скоростных шутерах с фантезийными декорациями и полностью нереальной физикой, таких как Quake и Unreal Tournament. К ним Мин Ли также создавал моды, причем весьма успешные: Navy Seals (мод к первому Quake) и Action Quake 2 (мод ко второму Quake, который он делал в составе сообщества модеров достаточно популярной в то время A-TEAM).

const n=6;
var 
  m,k,i: integer;
  var a: array[1..n] of integer;
begin
  m:=integer.MinValue;
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(20);
    write (a[i]:3);
    if a[i]>m
      then begin m:=a[i]; k:=i; end;
  end;
  writeln;  
  writeln ('Наибольший элемент массива: a[',k,'] = ',m);
end.

Исходный массив
  2  1 12 12 16  4
Наибольший элемент массива: a[5] = 16


const n=50;
var 
  sa: real;
  i,k: integer;
  var a: array[1..n] of integer;
begin
  sa:=0; k:=0;
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(3);
    write (a[i]:2);
    sa:=sa+a[i];
  end;
  sa:=sa/n;  
  writeln;
  writeln ('Среднее арифметическое = ',sa);
  writeln;
  writeln ('Элементы массива, равные среднему арифметическому:');
  for i:=1 to n do begin
    if a[i]=sa
      then begin writeln ('a[',i,'] = ',a[i]); k:=1; end;
  end;
  if k=0 then writeln ('Нет таких элементов');
end.

Исходный массив
 0 0 0 0 1 2 1 2 1 1 2 1 1 0 0 1 0 0 1 2 1 1 1 2 2 1 0 1 1 2 0 1 1 0 0 0 2 2 1 1 2 1 2 0 2 1 2 1 1 2
Среднее арифметическое = 1
Элементы массива, равные среднему арифметическому:
a[5] = 1
a[7] = 1
a[9] = 1
a[10] = 1
a[12] = 1
a[13] = 1
a[16] = 1
a[19] = 1
a[21] = 1
a[22] = 1
a[23] = 1
a[26] = 1
a[28] = 1
a[29] = 1
a[32] = 1
a[33] = 1
a[39] = 1
a[40] = 1
a[42] = 1
a[46] = 1
a[48] = 1
a[49] = 1

PS:
Как правило эта программа выводит пустой результат. Т.е. нет элементов, равных среднему арифметическому. Возможно что-то упущено в условии задачи.