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

122

387

Посмотреть ответы 2

Ответы на вопрос:

Human333

Информатика

4,8(62 оценок)

Поскольку язык не указан, отвечающий вправе использовать любой. в данном случае выбран 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