Var a,b,c:Integer; begin Read(a,b,c); if (a<b) and (b<c) then WriteLn('В порядке возрастания') else if (a>b) and (b>c) then WriteLn('В порядке убывания') else WriteLn('Нет'); <span>end. </span>Нажимаем "лучший ответ"
#include <iostream>#include <stdio.h>#include <conio.h> int main() { setlocale(LC_ALL, ""); int arr[5]; for (int i = 0; i < 5; ++i) { std::cout << "Введите число:"; std::cin >> arr[i]; } int min = arr[0], max = min; for (int i = 0; i < 5; ++i) { if (arr[i] < min) min = arr[i]; if (arr[i] > max) max = arr[i]; } std::cout << min << "\n" << max; _getch(); return 0;}