var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.
CBA - не подходит, так как на третьем месте стоит A;
EED - подходит;
AED - подходит;
CEC - подходит;
EBB - подходит;
BAE - не подходит, так как на первом месте стоит B;
CEA - не подходит, так как на третьем месте стоит A;
ABE - подходит;
CBD - подходит;
Ответ: 6 цепочек.
<span>#include <iostream></span>
<span>using namespace std;</span>
<span>int main()</span>
{
<span> const double Pi = 3.14;</span>
<span> double R,V,S;</span>
<span> cout << "Введите радиус шара: \n";</span>
<span> cin >> R;</span>
<span> V = (4/3)*Pi*(R*R*R);</span>
<span> S = Pi*(R*R);</span>
<span> cout << "Объем шара = " << V << " Площадь круга = " << S << " Соотношение " << V/S << " к " << 1 << endl ;</span>
<span>}</span>