#include <iostream> #include <iomanip> using namespace std;
int main() { int n; cout<<"n = "; cin>>n; // ввод количества элементов массива int a[n]; // заполнение массива и вывод на экран for (int i=0;i<n;i++) { a[i]=rand()%15; cout<<a[i]<<" "; } cout<<endl; // перевод строки // сортировка массива по возрастанию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[i]>a[j]) swap(a[i],a[j]); // вывод 4 минимальных cout<<"four min numbers: "; for (int i=0; i<4; i++) cout<<a[i]<<" "; cout<<endl; system("pause"); // ожидание ввода с клавиатуры return 0; }
#include <iostream> #include <iomanip> using namespace std;
int main() { int n; cout<<"n = "; cin>>n; // ввод количества элементов массива int a[n]; // заполнение массива и вывод на экран for (int i=0;i<n;i++) { a[i]=rand()%15; cout<<a[i]<<" "; } cout<<endl; // перевод строки // сортировка массива по возрастанию for (int i=0; i<n-1; i++) for (int j=i+1; j<n; j++) if (a[i]>a[j]) swap(a[i],a[j]); // вывод 4 минимальных cout<<"four min numbers: "; for (int i=0; i<4; i++) cout<<a[i]<<" "; cout<<endl; system("pause"); // ожидание ввода с клавиатуры return 0; }
// PascalABC.NET
procedure Сортировать(var a: array of integer) := a.Sort;
procedure МинМакс(a: array of integer; var min, max: integer);
begin
min := a.Min;
max := a.Max
end;
procedure Вывод(a: array of integer) := a[1::2].Println;
begin
var n := ReadInteger('n =');
var V := ArrRandom(n, -99, 99);
V.Println;
var mn, mx: integer;
МинМакс(V, mn, mx);
Println('Минимум', mn, ' максимум', mx);
Print('Четные по номеру:');
Вывод(V);
Writeln('Сортировка');
Сортировать(V);
V.Print
end.