// 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.
#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";
}