Кратко о методе: мы фиксируем какой-то элемент и сравниваем с ним все остальные, когда какой-то оказывается больше (или меньше, в зависимости от того сортируем мы по возрастанию или убыванию), то меняем местами два этих элемента и потом уже сравнение идет с новым элементом.
UPD: так как условие не было дано полностью, то в этой программе размерность массива задаётся с клавиатуры, сортировка элементов в четных столбцах идёт по возрастанию.
Для решения всех задач используется формула S = v*t, где S - объем файла, v - скорость передачи файла, t - время передачи. 1. 4 Мбайта = 4*1024 Кбайт = 4096 Кбайт S1 = v*t1, S2 = v*t2 S2 = (S1/t1)*t2 = (4096/100)*75 = 3072 Кбайт
Const n=10; var a,b:array [1..n] of integer; i,min1,min2,k:integer; begin randomize; For i:=1 to n do begin a[i]:=random(10); b[i]:=random(10); end; writeln (a); writeln (b); writeln; min1:=1000; min2:=1000; For i:=1 to n do begin if a[i]<min1 then min1:=a[i]; if b[i]<min2 then begin min2:=b[i]; k:=i end; end; if k<n then begin b[k+1]:=min1; writeln (a); writeln (b); end else writeln ('Минимальным является последний элемент'); end.
Кратко о методе: мы фиксируем какой-то элемент и сравниваем с ним все остальные, когда какой-то оказывается больше (или меньше, в зависимости от того сортируем мы по возрастанию или убыванию), то меняем местами два этих элемента и потом уже сравнение идет с новым элементом.
UPD: так как условие не было дано полностью, то в этой программе размерность массива задаётся с клавиатуры, сортировка элементов в четных столбцах идёт по возрастанию.