Ямпольский
?>

У исполнителя Калькулятор две команды: 1. прибавь 1 2. прибавь 2. Первая из них увеличивает число на экране на 1, вторая — на 2. Сколько различных чисел можно получить из числа 2 с программы, которая содержит не более 4 команд?

Информатика

Ответы

Andrei-Shchukin
Var
  arr : array [1..30] of integer;
  i, number : integer;
begin
  //Заполнение массива случайными числами
  for i := 1 to 30 do
    arr[i] := Random(10000) - 5000;
  //---
  //Считывание номера элемента и проверка на соответствие условию
  write('Введите число: ');
  readln(number);
  if not (number in [1..30]) then
  begin
    write('Ошибка. Номер элемента выходит за границу массива');
    Exit;
  end;
  //---
  //Вывод массива с учётом условия
  for i := 1 to 30 do
    if arr[i] > arr[number] then
      write(arr[i], ' ');
  //---
end.
albina6580
#include<iostream>
#include<cstdlib>
#include<ctime>
#include<locale>
#include<windows.h>
using namespace std; 
int main()
{
  setlocale(LC_ALL, "Russian");
  srand(time(NULL));   
  const int n=12, m=12;   
  int a[n][m];   
  int s = 0;   
  for(int i=0;i<n;i++)   
  {       
    for(int j=0;j<m;j++)       
    {           
      a[i][j] = rand() % 2;           
      if(a[i][j]) a[i][j] = rand()%100;           
      else a[i][j] = rand()%50*(-2);           
      cout << a[i][j] << ' ';       
    }       
  cout << '\n';   
  }   
  cout << '\n';   
  int c;   
  cout << "Введите номер столбца: ";   
  cin >> c;       
  for(int i=0; i < 12; i++)   
    if(a[i][c] > 0) s++;            
  cout << "Количество положительных чисел в столбце " << c << ": "  << s << '\n';       
  system("pause");
}

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

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

У исполнителя Калькулятор две команды: 1. прибавь 1 2. прибавь 2. Первая из них увеличивает число на экране на 1, вторая — на 2. Сколько различных чисел можно получить из числа 2 с программы, которая содержит не более 4 команд?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

sandovo590
Григорьевич915
aci2003
mishamedbrat
Lolira64
kokukhin
pbttehnology
Railyan
Yevgenevna
mail5
teya07
vnolenev
lider-mpl550
alex091177443
Ofelya1308