ИНФОРМАТИКА 8 КЛАСС ! ВСЕ ЗАДАНИЯ

#include <iostream>
#include <algorithm>
#include <ctime>
using namespace std;
const int ARRAY_SIZE = 7;
int c[ARRAY_SIZE];

void print_array();

int main(int argc, char *argv[])
{
    srand ( time(NULL)  );
    cout << "---   ЗАПОЛНЕНИЕ МАССИВА  ---\n";
    for (int i = 0; i < ARRAY_SIZE; ++i) {
        c[i] = rand() % 21 - 10;
        cout << c[i] << ' ';
    }
    cout << "\n---    МАССИВ ЗАПОЛНЕН    ---\n";
    cout << "---   ПОИСК НАИБОЛЬШЕГО   ---\n";
    int max = c[0];
    for (int i = 0; i < ARRAY_SIZE; ++i) {
        if (c[i] > max) max = c[i];
    }
    cout << "---    ПОИСК ЗАВЕРШЁН     ---\n"
         << "Наибольшее: " <<   max   << '\n'
         << "---   НАЧАЛО СОРТИРОВКИ   ---\n";
    sort(c, c + ARRAY_SIZE);
    cout << "---  МАССИВ ОТСОРТИРОВАН  ---\n";
    print_array();
    return 0;
}

void print_array() {
    cout << "---     ВЫВОД НА ЭКРАН    ---\n";
    for (int i = 0; i < ARRAY_SIZE; ++i) {
        cout << c[i] << ' ';
    }
    cout << "\n---      КОНЕЦ ВЫВОДА     ---\n";
}

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

procedure PrintArr(f:Text; a:array of integer);
begin
  foreach var x in a do Write(f,x,' ');
  Writeln(f)
end;

begin
  var fin:=OpenRead('input.txt');
  var n:=ReadlnInteger(fin);
  var a:=new integer[n];
  for var i:=0 to n-1 do Read(fin,a[i]);
  var fout:=OpenWrite('output.txt');
  fin.Close;
  PrintArr(fout,a);
  var b:=a.Where(x->x.IsEven).ToArray;
  PrintArr(fout,b);
  var c:=a.Where(x->x.IsOdd).ToArray;
  PrintArr(fout,c);
  fout.Close
end.