1616 + (пример числа 888 - 8+8=16 и 8+8=16 записываем 16 16 в порядке невозрастания) 979 9+7=16 и 7+9=16) 169 + (пример числа 790 7+9=16 и 9+0=9 записываем 16 и 9 в порядке невозрастания (убывания) 169 163 - (чтобы получить 16 нужно сложить (9 и 7) или (8 и 8) или (7 и 9) больше нет вариантов, тогда вторая цифра (7 или 8 или 9) плюс третья цифра какого-то числа в сумме должна получиться цифра 3 (такого быть не может) 1916 - (19 не можем получить, если взять максимальные цифры 9 и 9 получим только 18) 1619 - нарушение второго пункта (должно быть записано в порядке убывания) 316 - (если рассматривать 31 и 6 не может быть и если рассматривать 3 и 16 нарушение п.2) 916 - (см пункт 2) 116 + (пример числа 651 6+5=11 и 5+1=6 записываем 11 и 6 в порядке убывания (невозрастания) 11 6) В итоге получаем три числа
Program z1; Var a: array [1..1000] of integer; b: array [1..1000] of integer; i,j,n,min,m:integer;Begin write('Введите размер массива - '); readln(n); randomize; for i:=1 to n do begin a[i]:=random(50)-0; write (a[i],' '); end; j:=1; for i:=2 to n-1 do begin if ((a[i]>a[i-1]) and (a[i]>a[i+1])) then begin b[j]:=a[i]; j:=j+1; end; end; m:=j-1; writeln; for j:=1 to m do write (b[j],' '); min:=b[1]; for j:=2 to m do if (b[j]<min) then min:=b[j]; writeln; writeln(min); End.
979 9+7=16 и 7+9=16)
169 + (пример числа 790 7+9=16 и 9+0=9 записываем 16 и 9 в порядке невозрастания (убывания) 169
163 - (чтобы получить 16 нужно сложить (9 и 7) или (8 и 8) или (7 и 9) больше нет вариантов, тогда вторая цифра (7 или 8 или 9) плюс третья цифра какого-то числа в сумме должна получиться цифра 3 (такого быть не может)
1916 - (19 не можем получить, если взять максимальные цифры 9 и 9 получим только 18)
1619 - нарушение второго пункта (должно быть записано в порядке убывания)
316 - (если рассматривать 31 и 6 не может быть и если рассматривать 3 и 16 нарушение п.2)
916 - (см пункт 2)
116 + (пример числа 651 6+5=11 и 5+1=6 записываем 11 и 6 в порядке убывания (невозрастания) 11 6)
В итоге получаем три числа