vdnh451
?>

Дан массив на n элементов.выяснить будет ли он являться возрастающей последовательностью

Информатика

Ответы

Маргарита595
#include <iostream>

using namespace std;

int main() {
 int n, answer = 1;
 cin >> n;
 int a[n];
 for(int i = 0; i < n; i++) cin >> a[i];
 for(int i = 0; i < n-1; i++) 
   if(a[i] >= a[i+1]) {
      answer = 0;
      break;
   }
   cout << (answer ? "yes" : "no") << endl;
}
klodialeit36

C#:

int a;

           ConsoleKeyInfo keyInfo;

           do

           {

               Console.WriteLine("Введите номер одного из зимних месяцев:\n12, 1, 2");              

               a = Convert.ToInt32(Console.ReadLine());

               switch (a)  

               {  

               case 12:                                  

                  Console.WriteLine("Декабрь\n");              

                  break;

               case 1:

                  Console.WriteLine("Январь\n");

                  break;

               case 2:

                  Console.WriteLine("февраль\n");

                  break;

                default:                        

                  Console.WriteLine("Не зимний месяц\n");

                  break;

               }

//Ниже идёт зацикливание программы, для удобства. Если Вам этого не требуется, то вместо нижеперечисленного впишите "Console.ReadKey();"

               Console.WriteLine("Если хотите повторить программу нажмите F");

               Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");

               keyInfo = Console.ReadKey(true);

           }

           while (keyInfo.Key == ConsoleKey.F);


Дан номер зимних месяцев (12- декабрь, 1- январь, 2 – февраль). Напишите код программы, которая выво
Leonidovich_Elena771
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        writeln;
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            write(a[i, j], ' ');
    end;
    writeln;
end;

begin
    var a := MatrixRandom(9, 9, 10, 99);
    PrintMatrix(a);
    var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
    var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
    writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан массив на n элементов.выяснить будет ли он являться возрастающей последовательностью
Ваше имя (никнейм)*
Email*
Комментарий*