Сумма натуральных чисел из диапазона [10100-2; 27-8] а)56-10 б)56-8 в)56-16 г)56-32

10100₂=20 27₈ = 23 20+21+22+23= 86 = 56₁₆ ответ под номером в

Uses crt; var i,j,k,n,max: integer; a: array[1..100] of integer; procedure rmassr; begin       for i: =1 to n do       a[i]: =random(10); end; procedure rmassy; begin       for i: =1 to n do       readln(a[i]); end; procedure maxe; begin max: =a[1];       for i: =2 to n do begin             if a[i] > max then max: =a[i];       end;       writeln('max element = ', max); end; procedure wmass; begin       for i: =1 to n do       write(a[i],' ');       writeln; end; begin clrscr; randomize; write('длина массива'); readln(n); write('1-random; 2- в ручную '); readln(k); if k=1 then rmassr() else rmassy(); wmass(); maxe(); readln end.

Program z1;   var     a, b: integer;   begin     a: =0;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     write(a);   end.или    program z1;   var    a, b: integer;   procedure add;     begin      readln(b);       a: =a+b;     end;         begin    a: =0;     add();     add();     add();     add();     writeln(a);   end.