Program massiv;
var <span> mass = array [1..15] of integer;</span><span>
i, max, n_max: integer;</span>
begin<span>
{заполнение массива}
</span><span> for i:= 1 to 15 do mass[i] = (random(32)-15) * 3;</span><span>
max := 0;
</span><span> n_max := 0;
</span><span> {нахождение максимума, вывод на экран}
</span><span> for i:= 1 to 15 do</span><span>
begin</span><span>
if mass[i] > max then</span><span>
begin</span><span>
max := mass[i];
</span><span> n_max := i;</span><span>
end;</span><span>
write(mass[i], ' ');</span><span>
end;</span><span>
writeln('Индекс максимального: ', n_max);
</span><span>end.</span>
<span>Система, включающая в себя другие. Это более сложная система, имеющая свое предназначение, структуру, законы, ресурсы и сознание, в которую заданная система входит как подсистема </span>
<span>В соответствии с принципом иерархичности любая система одновременно является надсистемой для своих элементов и подсистемой для своей надсистемы. </span>
Подсистема <span>- это набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами. Интерфейс подсистемы представляет собой подмножество объединения интерфейсов всех объектов и подсистем, составляющих эту подсистему. В состав подсистемы может входить один, или более взаимозависимых объектов и/или подсистем.</span>
#include <iostream>
using namespace std;
int main() { int X, B; cin >> X >> B; int fclass = X / 4, sclass = X - fclass; cout << fclass * B + sclass * B / 2; return 0;}