Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
54+79 4+9=13(D) 5+7=12(C) Ответ: сумма CD
Ответ:
Ниже решение:
Объяснение:
#1
а)
1) 7
2) 4
3) 5
4) 13
5) 0
6) 15
7) 9
8) 2
б)
1) 4
2) -2
3) 0
4) 64
5) -25
6) 100
7) 16
8) -9
----------------------------------------
#2
1) i = 1; a[i] = -4
2) i = 2; a[i] = -1
3) i = 3; a[i] = 4
4) i = 4; a[i] = 7
5) i = 5; a[i] = 20
6) i = 6; a[i] = 31
7) i = 7; a[i] = 44
8) i = 8; a[i] = 59
9) i = 9; a[i] = 76
10) i = 10; a[i] = 95
35 в десятичной равно 100011 в двоичной.