Есть ответ 👍

Разработать и реализовать иерархию классов для описанных объектов предметной области, используя механизмы наследования. Протестировать все методы каждого класса. Все поля классов должны быть скрытыми (private) или защищенными (protected). Методы не должны содержать операций ввода/вывода, за исключением процедуры, единственной задачей которой является вывод информации об объекте на экран. Объект – шоколадное изделие. Поля: название, масса, энергетическая ценность на 100 грамм продукта. Методы: процедура инициализации, процедура вывода информации об объекте на экран, функция определения энергетической ценности изделия.
Объект – шоколадная плитка. Поля: название, масса, энергетическая ценность на 100 грамм, число долек в плитке. Методы: процедура инициализации, процедура вывода информации об объекте на экран, функция определения энергетической ценности плитки и функция определения энергетической ценности одной дольки

279
428
Посмотреть ответы 1

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


Var a,b,i: integer; n: real; mass: array[1..31] of integer; begin for i: =1 to 31 do begin mass[i]: =random(40)-20; if mass[i]> 0 then begin b: =b+1; a: =a+mass[i]; end; end; writeln('полученные значения'); for i: =1 to 31 do write(mass[i]: 4); n: =a/b; writeln; writeln('средняя температура равна ',n: 3: 1); end.

Популярно: Информатика