20 2.напишите класс, который принимает с клавиатуры 12 целых чисел и выводит на экран, сколько из них были больше, чем первое число.

Поскольку язык не указан, отвечающий  вправе использовать любой. в данном случае выбран vba из состава microsoft office 2003 (реализация в среде excel). некоторые и господа (обычно школьники и студенты), мнят себя великими программистами и считают семейство языков vb/vba/vbs недостойным упоминания. теперь у них есть возможность написать что-то аналогичное на с++/delphi и сравнить полученные коды с . собственно, описание класса class1: private const n = 12 public sub howmanysucc(byref kol as integer)       dim i as integer, m1 as integer, m as integer       kol = 0       m1 = getint()       for i = 2 to n               m = getint()               if m > m1 then kol = kol + 1       next i end sub private function getint() as integer       dim n as integer       getint = int(val(inputbox("введите целое число" end function вызов для тестирования: sub aa()       dim oc as new class1, k as integer       oc.howmanysucc k       msgbox "целых, больше первого: " + str(k) end sub

var

  a, b: integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a < > b then

    if a > b then

          b : = a

      else

          a : = b

  else

  begin

      a : = 0;

      b : = 0;

  end;

  writeln('a = ', a);

  writeln('b = ', b);

  readln;

end.