Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a> =200);

Var        a,i: integer;       s: integer;         sr: real;       b: integer; begin      writeln('введите а: ');       readln(a);       b: =200;       for i: =a to 200 do   begin      s: =b+i;     end;       sr: =s/a;       writeln('среднее значение: ',sr); end.

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]) насчет первого. мне непонятна формулировка "отсортировать по последней цифре"