Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>
1.25 ячеек
2.D)4
3.D)
4.C)
5.-
6.A)
K:=0;\\
for(i=0;i<100;i++){
if (a[i]>17){
k++;
}
}
write('k=',k);
Ответ:
a&b&c
Объяснение:
Очень просто это "сокращать". Надо вспомнить, что & - это логическое умножение и заменить знак на обычное умножение. Знак ∨ - логическое сложение, его заменить на +. А дальше почти как в обычной алгебре.
(a&b&c)∨a&b&c = a·b·c + a·b·c
Обозначим a·b·c через d. Получим d·d, а это всегда d.
Делаем обратные замены d = a·b·c = a&b&c
<em><u>Вот набор правил этой забавной логической арифметики.</u></em>
0+0=0, 0+1=1, 1+0=1, 1+1=1, d+0=d, d+1=1, d+d=d - сложение "ИЛИ"
0·0=0, 0·1=0, 1·0=0, 1·1=1, d·0=0, d·1=d, d·d=d - умножение "И"
¬0 = 1, ¬1 = 0 - инверсия "НЕ"