На входе кол-во строк и столбцов. Массив заполняем вручную.
var a:array [,] of integer;
b,k,i,j,N,M:integer;
BEGIN
read(N,M);
b:=maxint;
a:=new integer[N,M+1];
for i:=0 to N-1 do begin
for j:=0 to M-1 do begin
read(a[i,j]);
if a[i,j]<=b then begin
b:=a[i,j];
k:=j;
end;
end;
end;
for i:=N-1 downto 0 do
for j:=M downto k+2 do
swap(a[i,j],a[i,j-1]);
for i:=0 to N-1 do begin
for j:=0 to M do
write(a[i,j],' ');
writeln();
end;
end.
В первом мы повторяем количество раз от 6 до 12 ,то есть 10+10+10+10+10+10 ,ответ будет 60
а во втором мы ищем нужное нам значения начиная с 1 , в условии написано ,если Dat(k)<25 то мы присваем m этот Dat, то есть ответ 20
<span> 32 = </span><span>2^ 5</span>, значит вес одного символа i = 5 бит.
<span>Ответ:
одна буква несет 5 бит информации. </span>
Var
n,k:integer;
Begin
k:=-1;
Repeat
Write('Введите номер месяца: ');Read(n);
k:=k+1;
Until (n>0)and(n<13);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
WriteLn('Количество дней: ',n);
WriteLn('Количество ошибок при вводе: ',k);
End.
Микропроцессоры характеризуются: тактовой частотой и разрядностью.
Ответ: г) 2 и 4