Код ниже. Результат работы на скриншоте.
#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)
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.