подсистема - набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами.
иерархическая система -это модель данных, где используется представление базы данных в виде древовидной (иерархической) структуры, состоящей из объектов (данных) различных уровней. Между объектами существуют связи, каждый объект может включать в себя несколько объектов более низкого уровня.
типы :
иерархически последовательный;
иерархически индексно-последовательный;
иерархически прямой;
иерархически индексно-прямой;
индексный.
(типы не уверена ,что правильно)
program average;
const n=10;
var avg:real; //среднее ариф.
count:integer;//кол-во чисел, превосходящих ср. ариф
m:array[1..n] of integer; //массив из 10 целых чисел
i:byte; //счетчик цикла
begin
count:=0; avg:=0;
writeln('Введите в строку 10 чисел');
for i:=1 to n do begin
read(m[i]);//считываем в цикле 10 чисел
avg:=avg+m[i];//подсчитываем сумму элементов
end;
avg:=avg/10;//вычисляем среднее ариф. значение
//перебираем массив в цикле
for i:=1 to n do
if (m[i]>avg) then count:=count+1;//если элемент массива больше чем ср. ариф, то счетчик таких чисел увеличиваем на 1
//вывод на экран требуемого значения
writeln(count);
end.
Объяснение:
попробовал все разъяснить в комментариях к строкам кода
