var
s,p:int64;
i,kol,m:integer;
a:array of integer;
begin
readln(kol);
s:=0;
p:=0;
m:=0;
setlength(a,kol);
for i := 1 to kol do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
m:=s div kol;
writeln('Сумма ',s);
writeln('Произведение',p);
writeln('Среднее значение',m);
end.
Const n=20;
var a:array[1..n] of integer;
i,k,m:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
k:=0; m:=0;
for i:=1 to n-1 do
begin
if a[i+1]>a[i] then begin m:=m+1; end
else begin if m>0 then k:=k+1; m:=0; end;
end;
if m>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
7 30 22 0 17 4 2 32 39 26 23 41 1 38 47 21 38 31 43 7
k = 7
1 ) A$2+ 2*B2 = 1+ 2*2=1+4=5
то есть в ячейке будет записано число 5
2) А$1+B$1=10+20=30
в ячейке будет записано число 30
Ответ: 10
Решение:
Чтобы перевести число из двоичной системы в десятеричную, нужно с конца числа умножать по порядку цифры числа на 2, начиная с 0-ой степени. Если перед тобой ноль, то и получается ноль. Если один, то умножаешь. Несмотря на ноль, степень двойки идёт по порядку. Потом все полученные цифры складываешь и твой ответ получаешь.
Рассмотрим на твоём примере:
1010
1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10
Ответ: 10