var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
Hgjhjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj
Подсистемы школы, как организации: администрация, преподаватели, технический персонал
Подсистемы компьютера как устройства: системный блок, устройства ввода, устройства вывода
Подсистемы государства (республики, например): президент, правительство, национальный банк. Можно ещё шире: судебная, избирательная и исполнительная власти
Подсистемы Солнечной системы: планеты, кометы, астероиды
Подсистемы человека как живого организма: нервная, эндокринная, кроветворная, двигательная системы