Вцелочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. то-есть дан массив в которым есть нулевые значения.например: 20330120 от вас требуется создать массив из номеров этих нулевых значений. например: 2 5 8

Var   a, b : array [1..1000] of integer;   n, m, i : integer; begin   read (n);   for i : = 1 to n do read (a[i]);   m : = 0;   for i : = 1 to n do     if a[i] = 0 then     begin       m : = m + 1;       b[m] : = i;     end;   for i : = 1 to m do write (b[i], ' '); end. 

персональный компьютер, как и любая машина, имеет своё устройство. однако, когда речь идёт о такой вещи как компьютер, возникает понимание всей сложности данной системы и примитивности многих других систем при сравнении. глубинная система устройство может быть весьма и весьма сложной для необученного человека, и, тем не менее, каждый рядовой пользователь компьютер должен быть хотя бы на поверхностном уровне знаком с устройство компьютера.

итак, любой стационарный компьютер состоит из отдельных устройств, которые работают лишь при объединении друг с другом. все устройства можно условно разделить на две категории: одни располагаются внутри системного блока, другая же половина устройств служит для ввода и вывода информации. к второй половине относятся: монитор, мышь, клавиатура и другие.

что же касается устройств, которые находятся внутри системного блока, они предназначены специально для хранения и обработки информации. они могу иметь­ различные параметры в зависимости от конфигурации компьютера. но, как правило, сюда входит стандартный набор: материнская плата, блок питания, оперативная память, процессор, видеоадаптер,­ жесткий диск, дисковод,­ платы расширения.

рассмотрим каждое из устройств в отдельности:

материнская платаглавная функция материнской платы состоит в том, что она обеспечивает взаимодействие всех устройств, которые предназначены для ввода или вывода информации и непосредственно подключаются к ней. так же материнская плата является базовым устройством для установки процессора, оперативной памяти и их нормального функционирования.

блок питанияфункцией блока питания является правильно распределение напряжения между всеми устройствами, которые находятся в системном блоке. от системного блока отходит множество кабелей, по которым проходит питание всех устройств от сети.

оперативная памятьпредназначена для хранения информации, может ее сохранять лишь при включенном питании.

процессорфункцией процессора является обработка информации по заданной программе.

видеоадаптерформирует изображение, которое в­ последствие выводится на монитор.

жесткий дискпредназначен для хранения информации.

дисководиспользуется для чтения дискет.

каждое из этих устройств важно в работе системы, а при малейшей неисправности невозможна и исправная работа вашего компьютера. так или иначе, каждый пользователь должен знать как пользоваться пк таким образом, чтобы каждая его деталь служила долгое время и работала без возникновения проблем.

Function sq(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function tr(a,b,c: real): boolean; begin result: =(a+b> c)and(a+c> b)and(b+c> a) end; var a,b,c,k1,k2,h,t,s,r1,r2: real; begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 '); readln(k1); if k1=1 then    begin    writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)? ');   readln(k2);   write('сторона а = ');   readln(a);   write('сторона b = ');   readln(b);   write('сторона с = ');   readln(c);   if tr(a,b,c) then   begin   s: =sq(a,b,c);   if k2=1 then    begin   r1: =(a+b+c)/(2*s);   writeln('радиус вписанной окружности = ' , r1);   end;   if k2=2 then    begin   r2: =a*b*c/(4*s);   writeln('радиус описанной окружности = ', r2);   end;   end else writeln('треугольник не существует');   end else   if k1=2 then   begin   writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' );   readln(k2);   if k2=1 then   begin   write('высота = ');   readln(h);   write('cторона = ');   readln(t);   s: =1/2*h*t;   writeln('площадь = ',s);   end;   if k2=2 then   begin   write('a = ');   readln(a);   write('b = ');   readln(b);   write('c = ');   readln(c);   if tr(a,b,c) then     begin     s: =sq(a,b,c);     writeln('площадь = ',s) ;     end else writeln('треугольник не существует');   end;   end; end. пример:   найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2  2 что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2 1 высота = 3 cторона = 4 площадь = 6