Halimedy
31.03.2021 00:47

Дано ціле число N (> 2) і набір з N дійсних чисел. Набір називається пилкоподібним, якщо кожен його внутрішній елемент або більше або менше обох своїх сусідів (тобто є «зубцем»). Якщо даний набір є пилкоподібним, то вивести 0, в іншому випадку – вивести номер першого елемента, який не є зубцем.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Тжвик
17.01.2022 22:39
#include <iostream>
#include <cstdlib>

using namespace std;

int main() {
    int i,j;
    int a[4][3];
    for (i=0; i<4; i++){
        cout<<"Stroka "<<i+1<<endl;
        for (j=0; j<3; j++) {
            cout<<"Element "<<j+1<<": ";
            cin>>a[i][j];
        }
        cout<<endl;
    }
    cout<<"Resul'tat"<<endl;
    for (i=0; i<4; i++) {
        for (j=0; j<3; j++) {
            a[i][j]*=a[i][j];
            cout<<a[i][j]<<" ";
        }
        cout<<endl;
    }
    cin>>i; //ïðîñòî ÷òîáû ýêðàí íå çàêðûëñÿ
    return 0;
}

Тестовое решение (Dev C++)
Stroka 1
Element 1: 1
Element 2: 2
Element 3: 3

Stroka 2
Element 1: 4
Element 2: 5
Element 3: 6

Stroka 3
Element 1: 7
Element 2: 8
Element 3: 9

Stroka 4
Element 1: 10
Element 2: 11
Element 3: 12

Resul'tat
1 4 9
16 25 36
49 64 81
100 121 144:
0,0(0 оценок)
Ответ:
Atoom51
09.05.2020 22:54
Const
  n = 15;

var
  x: array[1..n] of integer;
  i, b, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  s:=0;
  for i := 1 to n do if x[i]>b then s:=s+b;
  Writeln('Сумма элементов, больших ',b,', равна ',s)
end.

Тестовое решение:
Элементы массива
  8 46 29 23 21 14 14  8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150

const
  n = 15;

var
  x: array[1..n] of integer;
  i, b: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  i:=1;
  while (x[i]<>b) and (i<n) do Inc(i);
  if x[i]=b then Writeln('x[',i,']=',b)
  else Writeln('Нет элементов со значением, равным ',b)
end.

Тестовое решение:
Элементы массива
 24  6 28 46 25  9 12 47 34  0 20 47 15 10 34
Введите значение b -> 20
x[11]=20
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота