Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
<span>Не знаю что вы имели ввиду вот перевод чисел из двоичной системы, может он ва поможет разобраться в этом вопросе.</span>
<span>а) 1001010 = 2</span>6<span>*1 + 2</span>5<span>*0 + 2</span>4<span>*0 + 2</span>3<span>*1 + 2</span>2<span>*0 + 2</span>1<span>*1 + 2</span>0<span>*0 = 64 + 0 + 0 + 8 + 0 + 2 + 0 = 74</span>
<span><span>б) 10000000111 = 2</span>10<span>*1 + 2</span>9<span>*0 + 2</span>8<span>*0 + 2</span>7<span>*0 + 2</span>6<span>*0 + 2</span>5<span>*0 + 2</span>4<span>*0 + 2</span>3<span>*0 + 2</span>2<span>*1 + 2</span>1<span>*1 + 2</span>0<span>*1 = 1024 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 4 + 2 + 1 = 1031</span></span>
Program Zadacha;
var
matriza: array[1..11, 1..11] of integer;
i, j : integer;
Begin
randomize;
for i:=1 to 11 do
for j:=1 to 11 do
matriza[i][j] := random(10);
for i:=1 to 11 do
begin
for j:=1 to 11 do
Write(matriza[i][j], ' ');
WriteLn('');
end;
ReadLn;
End.
На 4:
var i,x,oc:integer;s:real;
begin
readln(x);
s:=0;
for i:=1 to x do
begin
oc:=random(5)+1;
s:=s+oc;
end;
writeln(s/x);
end.
На 5:
var i,s,ch,min:integer;
begin
s:=3;
for i:=3 to 30 do
begin
s:=s+2;
end;
ch:=s div 60;
min:=s-ch*60;
writeln('Часов ',ch,' минут ',min);
end.