Водномерном массиве размерностью n=10 отсортировать по возрастанию четные элементы массива.вывести исходный и измененный массив.можно использовать любой метод сортировки.

Program massiv; uses crt; type matr=array[1..10] of integer; var a: matr; procedure vvod(var a: matr); var i: integer; begin for i: =1 to 10 do begin write ('введите  элемент  массива a[',i,']'); readln(a[i]); end; end; procedure ivyvod(var a: matr); var i: integer; begin write ('исходный  массив '); for i: =1 to 10 do write (a[i],' '); writeln; end; procedure sort(var a: matr); var i,j,min: byte; vsp: integer; begin for i: =1 to 9 do begin min: =i; for j: =i+1 to 10 do if a[j]< a[min] then min: =j; vsp: =a[i]; a[i]: =a[min]; a[min]: =vsp; end; end; procedure vyvod(a: matr); var i: integer; begin write('отсортированная последовательность массива '); for i: =1 to 10 do begin if a[i] mod 2 = 0 then write(' ',a[i]); end; end; begin vvod(a); ivyvod(a); sort(a); vyvod(a); end.

ответ: a: 28);

            б: 222).

объяснение:

а) по условию мы имеем ..[65]

пока нашлось () или нашлось () - это условию

то есть как я понимаю данный оператор производит выборку из текста и заменить его на результат заданный оператором.

допустим: ..[65] - удовлетворяем условию

если нашлось ()

то заменить (, 8) // двоек на данный момент у нас нет, пропускается

иначе заменить (, 2) // то есть => 2

блок у нас состоит из 4 цифр значит мы 65/4= 16 целых - это у нас количество < 2> 1 в остатке - это оставшиеся < 8>

в итоге получаем .[16]8

возвращаемся в начало цикла и тут у нас уже подходит условие с ()

если нашлось ()

то заменить (, 8) - меняем

16/4=4 //если не забыли это количество всех наших чисел равных 2 делим на блок из 4 чисел. не забываем про остаток от предыдущего деления в виде 8[1]

в итоге получаем:

cнова вернемся в начало цикла.

удовлетворяем условию

меняем => 2. в итоге

28

ответ: 28

2) делаем по аналогии

72/4=18[2]

18/4=4[8] 2{2}

4/4=1{2] + 2{2}= 3{2}

ответ: 222

ответ:

1)

#include

using namespace std;

int main() {

int n,m;

cout < < "enter number n: ";

cin > > n;

cout < < "enter number m: ";

cin > > m;

for (int i = n; i < = m; i++) {

  if (i % 3 == 0) cout < < i < < endl;

}

}

2)

#include

using namespace std;

int main() {

int n, m, sum=0;

cout < < "enter number n: ";

cin > > n;

cout < < "enter number m: ";

cin > > m;

for (int i = n; i < = m; i++) {

  if (i % 2 == 0) sum+=i;

}

cout < < "result: " < < sum;

}

3)

#include

using namespace std;

int main() {

long n,m, max=0;

cout < < "enter number: ";

cin > > n;

m = n;

  for (int i = 10; n> 0; ) {

  if (n % i > max)  

  max = n % i;

  n = n / i;

}

  cout < < "result: " < < max;

}

объяснение: