К пятизначному натуральному числу применяется следующий алгоритм:
1) вычислить сумму первых двух цифр;
2)вычислить сумму последних трех цифр;
3) записать полученные два числа друг за другом в порядке убывания.

Выясните наименьшее пятизначное число, в результате применения к которому алгоритма получится число 310

/*Дан массив X(N,M) .Найти среднее арифметическое тех строк массива, первый элемент которых положительный*/#include <iostream>#include <time.h>#define M 5#define N 5using namespace std;
void printArray(int *mas, int n,int m)//инициализация и вывод массива { srand(time(0)); for (int i = 0; i < n; i++) { for (int j = 0; j < m; j++) { *mas = rand() % 21-10; cout << *mas << "\t"; mas++; } cout << endl; }}

void srArray(int mas[][M], int n)//нахождение и подсчет тех строк, где первый элемент положительный{ int a; double sum = 0; for (int i = 0; i < n; i++) { double sr = 1; if (mas[i][0] > 0) { for (int j = 0; j < M; j++) { sum += mas[i][j]; } sr = sum / M; cout << "Ср элеменитов " << i + 1 <<  "-й строки = " << sr << endl; } else ; }
}

void main()//основная функция{ setlocale(LC_ALL, "rus"); int x[N][M]; printArray(&x[0][0], N, M); cout << endl; cout << ""<<endl; srArray(x, N); system("pause");}

Var
  i:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  a[i]:=random(-100,100);
  if a[i]<0 then write(a[i],' ');
  end;
end.

2)
а)
var
  i:integer;
  a:array[1..20]of real;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i],' ');
  end;
writeln;
for i:=1 to 20 do  if a[i]>10 then a[i]:=sqrt(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:7:2);
end.

б) 
var
  i:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
for i:=1 to 20 do  if (i mod 2=0) then a[i]:=abs(a[i]);
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.

в) 
var
  i,n:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(-50,50);
  write(a[i]:4);
  end;
writeln;
n:=a[1];
for i:=1 to 20 do
  if a[i]<0 then a[i]:=a[i]+5
  else a[i]:=a[i]+n;
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i]:4);
end.