Объяснение:
^ не стоит у меня, но действие выполняет, у себя его ставьте!
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.
Учёные используют Системное ПО
Дизайнеры используют Прикладное ПО
Веб.-Прогр. использует Системы прогр.
Методист использует Системное ПО
Дизайнеры используют Прикладное ПО
В двоичной системе исчисления 2 в 25 степени = 1 и 24 нуля.
<span>Ответ 24.</span>
К - 1000
L - 1001
M - 1010
N - 1011
KMLN - 1000101010011011(2)=105233(8)