Код ниже. Результат работы на скриншоте.
#include <iostream>//cin
#include <cstdlib> //rand()
#include <ctime>//time()
using namespace std;
#define N 5 // Количество элементов в массиве
int main() {
int Arr[N];
srand(static_cast<unsigned int>(time(0))); //Инициализация генератора случайных чисел
cout << "Исходный массив: ";
for(int i = 0; i < N; ++i){
Arr[i] = rand(); //Заполнение случайными числами
cout << Arr[i] << " ";
}
cout << endl;
bool flag = true;
for(int i = 0; i < N - 1; ++i){
if(Arr[i] > Arr[i+1]){
flag = false;
break;
}
}
cout << "Последовательность " << (flag ? " НЕубывающая. " : "не образуется") << endl;
return 0;
}
![Дан целочисленный массив a[5]. определить, образуют ли его элементы неубывающую последовательность.](/tpl/images/0939/1506/30107.jpg)
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
2. А вот так учат решать в школе...
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6