Вследствие чего пк может не загружать операционную систему, 1) не подключена клавиатура 2) не подключен принтер 3) не подключена мышь 4) не подключен модем
Не один вариант не верен. Правильный ответ: не подключен жесткий диск, повреждена материнская плата. Из предложенных вариантов вероятнее всего подойдет 4.
Const l = 5; var a: array[1..l] of integer; d: array[1..l] of real; i, otr, k, m: integer; begin otr:=0; k:=0; m:=0; //считаем массив а for i:=1 to l do begin readln(a[i]); //если ввели положительное число,увеличим перем. otr на 1 if a[i] < 0 then inc(otr); //если ввели отрицательное число,увеличим перем. k на 1 //и к переменной m прибавим элемент if a[i] > 0 then begin inc(k); inc(m, a[i]); end; end; //заполним массив d for i:=1 to l do //если индекс четный, присвоим элементу otr //иначе присвоим среднее арифметическое if i mod 2 = 0 then d[i] := otr else d[i] := m/k; end.
