Program SumAndMul;
Uses Crt;
var a:array[1..10] of real;
i:integer;
sum,mul:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите -', i,' число:' );
readln(a[i]);
end;
sum:=0;mul:=1;
for i:=1 to 10 do
begin
if (a[i]>0) then sum:=sum+a[i];
if (a[i]<0 ) then mul:=mul*a[i];
end;
writeln('Сумма положительных элементов: ',sum);
writeln('Произведение отрицательных элементов: ',mul);
readkey;
end.
ответ: Систе́ма — множество элементов, находящихся в отношениях и связях друг с другом, которое образует определённую целостность, единство. Сведение множества к единому — в этом первооснова красоты. Пифагор. Потребность в использовании термина «система» возникает в тех случаях, когда нужно подчеркнуть, что что-то является большим, сложным, не полностью сразу понятным, при этом целым, единым.
Объяснение:
Теперь перечислим основные свойства системы.
1) Целостность. Любую организацию можно рассматривать как интегрированное целое, в котором каждый элемент занимает строго определенное место.
Целостность - принципиальная несводимость свойств системы к сумме свойств составляющих ее элементов и невыносимость из последних свойств целого; зависимость каждого от его места, функции и т.д. внутри целого.
Функционирование целого должно приносить интегральный, суммированный эффект. Все элементы должны быть взаимосвязаны в рамках цели данной системы.
2) Иерархичность. Каждый компонент системы в свою очередь может рассматриваться как система, а исследуемая в данном случае система представляет собой один из компонентов более широкой, глобальной системы (рис. 6). Это напоминает ящик, в который сложены более мелкие коробки, мы открываем один и видим, что в нем содержится еще несколько.
