Придумать 10 вырожений на языке паскаля

Question

Информатика: Придумать 10 вырожений на языке паскаля​

kat247 · Accepted Answer

//написано на си/си++ #include iostream #include stdio.h #include time.h #define length 20 int main() { setlocale(LC_ALL, ); srand(time(NULL)); int arr[length]; for (int i = 0; i length; ++i) { arr[i] = rand() % 100 + 1; std::cout arr[i] 
 ; } for (int i = 0; i length; ++i) { if (arr[i] % 2 == 0) { for (int j = 0; j length - 1; ++j) { if (arr[j] % 2 == 0) { if (arr[i] arr[j]) {//сортировка будет происходить от Б к М int tmp = arr[i]; arr[i] = arr[j]; arr[j] = tmp; } } } } } std::cout 
sorted array

...

Придумать 10 вырожений на языке паскаля​

MOGZ ответил