Надсистема-первая группа решений минимизации связана с использованием надсистемы. что такое надсистема? это то, что окружает систему; то, с чем она взаимодействует. для устройства – это окружающие его другие устройства, которые работают вместе. так, для плазменной панели в качестве надсистемы может выступать мультимедийный центр, который включает саму плазменную панель, dvd-плеер, игровую приставку, колонки, компьютер. подсистема- это набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами. интерфейс подсистемы представляет собой подмножество объединения интерфейсов всех объектов и подсистем, составляющих эту подсистему. в состав подсистемы может входить один, или более взаимозависимых объектов
yanermarina87
24.01.2021
Var i,n,k,max: integer; s: string; a: array[1..12]of integer; naz: array[1..12]of string; begin naz[1]: =('январь'); naz[2]: =('февраль'); naz[3]: =('март'); naz[4]: =('апрель'); naz[5]: =('май'); naz[6]: =('июнь'); naz[7]: =('июль'); naz[8]: =('август'); naz[9]: =('сентябрь'); naz[10]: =('октябрь'); naz[11]: =('ноябрь'); naz[12]: =('декабрь'); write('введите число n: '); readln(n); for i: =1 to n do begin write('введите дату: '); readln(s); s: =copy(s,4,2); k: =strtoint(s); a[k]: =a[k]+1; end; for i: =1 to 12 do begin if a[i]> =max then begin max: =a[i]; n: =i; end; end; writeln('месяц с наибольшим количеством: ',naz[n]); end.