на каком языке то?
иди домой. в след году САМ сдашь!
program vstavka;
uses crt;
const n=10;
arr:array [1..n] of real=(25,11,-8,0,99,25,0,19,14,-17);
var i,j:byte;
procedure InsertionSort(var Arr : array of Real; N : Integer);
var
I : Integer;
J : Integer;
K : Integer;
Tmp : Real;
begin
dec(N);
i:=1;
repeat
j:=0;
repeat
if Arr<=Arr[j] then
begin
k:=i;
Tmp:=Arr;
repeat
Arr[k]:=Arr[k-1];
dec(k);
until not(k>j);
Arr[j]:=Tmp;
j:=i;
end
else inc(j);
until not(j<i);>:2:2);
writeln ('otsortirovannii massiv');
InsertionSort (arr,n);
for i:=1 to n do
writeln (arr:2:2);
readln;
end.
#include <iostream>
#include <algorithm>
// простая глобальная функция для использования
// с алгоритмом for_each
void Power(int value)
{
std::cout << value*value << ",";
}
int main()
{
int array[10] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
for(int i = 0; i < 10; ++i)
std::cout << array << ",";
std::cout << std::endl;
// перемешиваем элементы в массиве
std::cout << "randomize" << std::endl;
std::random_shuffle(array, array + 10);
for(int i = 0; i < 10;++i)
std::cout << array << ",";
std::cout << std::endl;
// find возвращает итератор (в данном случае - указатель)
// на элемент, если элемент найден и end(),
// (последний элемент массива) , если элемент не найден
std::cout << "find" << std::endl;
int* ptr = std::find(array, array + 10, 4);
if(ptr == array + 10)
std::cout << "not found" << std::endl;
else
std::cout << *ptr << " found" << std::endl;
// меняем порядок элементов в массиве
std::cout << "reverse" << std::endl;
std::reverse(array, array + 10);
for(int i = 0; i < 10; ++i)
std::cout << array <<",";
std::cout << std::endl;
// сортировка
std::cout << "sort" << std::endl;
std::sort(array, array + 10);
for(int i = 0; i < 10; ++i)
std::cout << array <<",";
std::cout << std::endl;
// создаем копию массива
std::cout << "copy" << std::endl;
int another_array[10];
std::copy(array, array + 10, another_array);
for(int i = 0; i < 10; ++i)
std::cout << array <<",";
std::cout << std::endl;
for(int i = 0; i < 10; ++i)
std::cout<< another_array <<",";
std::cout << std::endl;
// std::equal возвращает true,
// если массивы абсолютно идентичны
std::cout << "equality" << std::endl;
if(std::equal(array, array + 10, another_array))
std::cout << "the 2 arrays are equal" << std::endl;
// std::fill заполняет массив указанным значением
std::cout << "fill" << std::endl;
std::fill(array, array + 10, 22);
for(int i = 0; i < 10; ++i)
std::cout << array << ",";
std::cout << std::endl;
// std::swap меняет элементы массива местами
std::cout << "swap" <<std::endl;> <<",";
std::cout << std::endl;
for(int i = 0; i < 10; ++i)
std::cout << another_array << ",";
std::cout << std::endl;
// std::count возвращает количество вхождений
// элемента в массив
std::cout << "count" << std::endl;
int count = std::count(another_array,
another_array + 10, 22);
std::cout << "there is "
<< count
<< " elements in new_array with value 22"
<< std::endl;
std::cout << "for_each" << std::endl;
std::for_each(array, array + 10, Power);
return 0;
}
Другие языки программирования и технологии
Написатьпрограмму которая методом обмена сортирует по возростанию введенный с клавиатуры одномерный массив размерностьюN
основа такая:
int a[N], b, n, k, j;
...
for ( n = 0; n < N-1; n++)
{
k = n;
for ( j = n+1; j < N; j++) if ( a[j] < a[k] ) k = j;
b = a[n]; a[n] = a[k]; a[k] = b;
}
int a[N], b, n, k, j;
...
for ( n = 0; n < N-1; n++)
{
k = n;
for ( j = n+1; j < N; j++) if ( a[j] < a[k] ) k = j;
b = a[n]; a[n] = a[k]; a[k] = b;
}
Ну что то типа переменой Max = N1; далее сравнение If Max < N2 Then Max = N2 (новый максимум) и так далее в цикле до конца массива
Похожие вопросы
- Заполнить случайным образом одномерный массив из n элементов и обменять местами последний и максимальный (в паскале)
- Ввести одномерный массив n = {3, 5, 7, 9, -11, 13, 15}
- Написать в С++. Задан одномерный массив А из 10 чисел.
- сформировать с помощью ДСЧ одномерный массив и вывести его на печать
- сформировать с помощью ДСЧ одномерный массив и вывести его на печать .
- C++ одномерный массив
- СРОЧНО ПАСКАЛЬ задан одномерный массив с (1..10), дать ответ: каких элементов больше: положительных или отрицательных
- Задача pascal abc fr. Одномерный массив
- Ввести 10 элементов в массив с клавиатуры, и определите количество элементов, которые кратный 5.
- Как правильно задать одномерный массив в C++?