Для записи текста использовался 256-символьный алфавит. каждая страница содержит 30 строк по 70 символов в строке. какой объем информации содержат 5 страниц текста?

надо перемножить строки символы и страницы: 30*70*5=10500

30*5*70=10500 содержат 5 страниц текста

Var i,j: integer; mas: array [1..10] of integer; begin randomize; for i: = 1 to 10 do  mas[i]: =random(101); for j: =1 to 10-1 do for i: =1 to 10-j do if mas[i] mod 10 > mas[i+1] mod 10 then swap(mas[i],mas[i+1]); for i: =1 to 10 do writeln(mas[i]); end.2)var a: array[1..10] of integer;   i,j: integer;   begin  randomize; for i: =1 to 10 do a[ i]: =random(101);   for i: =1 to 4 do for j: =i+1 to 5 do if a[ i] > a[ j] then swap(a[i],a[j]);   for i: =5 to 9 do for j: =i+1 to 10 do  if a[ i] < a[ j] thenswap(a[i],a[j]); ;   for i: =1 to 10 do  write(a[ i],' ');   end.

2) сортирую не методом выбора, а пузырьковым методом, т.к. мне неизвестна формулировка "метод выбора" program z1; var mas: array[1..10] of integer; m,n,temp: integer; begin randomize; for i: =1 to 10 do begin mas[i]: =random(100); end; for i: =1 to 4 do if mas[i]> mas[i+1] then begin temp: =mas[i+1]; mas[i+1]: =mas[i]; mas[i]: =temp; end; for i: =6 to 9 do if mas[i]< mas[i+1] then begin temp: =mas[i+1]; mas[i+1]: =mas[i]; mas[i]: =temp; end; end. если нужен еще и вывод на экран - то дописываете перед end. следующее: for i: =1 to 10 do writeln(mas[i]) насчет первого. мне непонятна формулировка "отсортировать по последней цифре"