Вот ответы! А во вторник вышла 5 за четверть! Удачи тебе в учёбе!
На входе кол-во строк и столбцов. Массив заполняем вручную.
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.
1. За допомогою кнопки Файл
2. Натиснути Зберегти як
4. В поле Назва
5 Натиснути кнопку зберегти
tср=(t₁+t₂+t₃)/3
tср=(15+18+13)/3=46/3=15 мин = 15 минут и 20 секунд
16*64=1024
1024*64=65536
65536*256=16777216 бит
16бит=2байт
1мегабайте=1000000байт
16777216=2,097152мегабайт