const n=10;
var a:array [1..n] of real;
i,mi:integer;
s,m,p:real;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:0:3,' ');
if a[i]>0 then s:=s+2*a[i];
end;
writeln;
m:=a[1];
mi:=1;
for i:=1 to n do if a[i]>m then
begin
m:=a[i];
mi:=i
end;
p:=1;
for i:=mi to n do if a[i]<0 then p:=p*2*a[i];
writeln ('Удвоенная сумма всех положительных элементов массива: ',s:0:3);
if p=1 then writeln ('Отрицательных чисел после максимального элемента нет')
else writeln ('Удвоенное произведение всех отрицательных элементов массива, расположенных после максимального элемента: ',p:0:3);
end.
var
i, sum, m: integer;
begin
sum := 0;
for i := 1 to 8 do
begin
readln(m);
if m > 0 then
sum := sum + m;
end;
writeln('сумма положительных чисел= ', sum);
end.
Больше всего будет А.
Потом Б.
Потом В.
Меньше всего запросов будет в Г.
В порядке возрастания: ГВБА
1111011,0101001000101101 (почти бесконечно большая дробная часть, написала, сколько не лень считать было)
---
123(10)=1111011(2)
0,321(10)=0,0101001000101101(2)