var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
Ну? Понятно, 16 рядов, 32 места в каждом... продали ОДИН БИЛЕТ В ВОСЬМОМ РЯДУ, номер 8 ... и что ??? Какой вопрос задачи?;)
1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
<span>end.
2. </span>Program fg;
<span>Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
<span>end.
3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
<span>end.</span></span></span>
Вред это то что ребенок ниче неделает сидит в интернете днями иночами портит зрение дети заходят на взрослые сайты родители забывают детях и седят в соц сетях пользат это што дети могут смотреть уроки общатся с друзьями и тд
Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>