function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
1. Теория хаоса тебе в т. к. на счёт этого ты должна сама подумать. 2. До сборки - Да. Любое устройство в компе ожидает входные данные, дальше как то их обрабатывает и выдаёт обратно, алгоритмы обработки обсалютно разные для каждого устройства (жёсткий, оперативка, bios) После - тем более да, так как без системы каждый элемент компа бессмыслен и бесполезен. Каждый из них дополняет друг друга. После включения - да, вся система начинает реагировать как то и отвечать (выходные сигналы - принтер, экран, вибрация на джойстике, загорается лампочка на камере когда идёт чтение видео с камеры) 3. Свойства зависят от внутренних параметров каждого компонента. На примере компа - частота процессора обеспечивает с какой скоростью обрабатываются данные, оперативка - сколько памяти храниться в ней для быстрого вызова и передачи на процессор, на жёстком его объём и скорость чтения/записи. Каждый компонент важен в системе, есть ключевые (процессор, опертивка) от которых многое зависит, а есть не особо зависимые параметры компонета (объём жёсткого) . И т. д. и т. п. Надеюсь дал более менее развёрнутый ответ.
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.