В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
DanaФайн
DanaФайн
28.01.2023 00:55 •  Информатика

Какой вид цикла используется для формирования массива?
Выберите один ответ:
цикл с постусловием Repeat...
цикл с предусловием While ...
цикл с параметром For...
Оператор, открывающий файл для записи:
Выберите один ответ:
Close
Assign
Reset
Rewrite
Определите, какой заголовок подпрограммы-функции записан правильно
Выберите один ответ:
function nod(x,y:integer)
нет правильного ответа
funtion nod(x,y:integer):integer
function nod(x,y)
Укажите правильное описание массива:

Выберите один ответ:
a: array [1..n, 1..m] of real
a: aray [1..n, 1..m] of integer
a: array [1…n, 1…n] of real
a: array {1..n} oФактическими параметрами называются
Выберите один ответ:
переменные, которые описаны в самой программе, а используются только в процедуре
константы, которые описаны в самой программе
переменные (константы), которые задаются при вызове процедуры (функции)f integer
Определите, какие переменные в приведенном фрагменте программы локальные.

Program Slon;

Uses CRT;

Var x,y : Integer;

Procedure P (a,b : Integer);

Var i : byte;

Begin



End;

…..

End.

Показать ответ
Ответ:
ekaterinka21041
ekaterinka21041
07.01.2020 19:38

#include <algorithm>

#include <iostream>

#include <random>

#include <vector>

 

void fillVector(std::vector<int>&, int lowerBound, int upperBound);

void print(const std::vector<int>&);

 

int main() {

 

   std::vector<int> vec { };

   std::size_t size { 0 };

 

   std::cout

       << "Please, enter the number of elements: ";

   std::cin

       >> size;

 

   if (size < 1 || size > 1000) {

 

       std::cerr

           << "The size must be in the range [1; 1000]" << std::endl;

 

       return 1;

 

   }

 

   vec.resize(size);

 

   fillVector(vec, 0, 100);

   print(vec);

 

   std::size_t changes { 0 };

 

   for (std::size_t i { 0 }; i < vec.size() - 1; ++i) {

 

       int tempValue { 0 };

 

       for (std::size_t j { i + 1 }; j < vec.size(); ++j) {

 

           if (vec.at(i) > vec.at(j)) {

 

               tempValue = vec.at(i);

               vec.at(i) = vec.at(j);

               vec.at(j) = tempValue;

 

               ++changes;

 

           }

 

       }

 

   }

 

   print(vec);

 

   std::cout

       << "Number of changes: " << changes << std::endl;

 

   return 0;

 

}

 

void fillVector(std::vector<int>& vec, int lowerBound, int upperBound) {

 

   std::random_device rd;

   std::mt19937 gen(rd());

   std::uniform_int_distribution<int> dist(lowerBound, upperBound);

 

   int randomValue { };

 

   for (auto& value : vec) {

 

       while (true) {

 

           randomValue = dist(gen);

       

           if ( std::find( vec.begin(), vec.end(), randomValue) == vec.end() ){

       

               value = randomValue;

               break;

       

           }

 

       }

 

   }

 

}

 

void print(const std::vector<int>& vec) {

 

   for (const auto value : vec) {

 

       std::cout

           << value << " ";

 

   }

 

   std::cout

       << std::endl;

 

}

0,0(0 оценок)
Ответ:
sanydrr1
sanydrr1
10.06.2021 07:13

const N = 10;  

var a, i, count, z: integer; s:string;  

suc: array[1..N] of integer;  

begin

 Randomize();

 count := 0;  

 z := 1;

 for i := 1 to N do begin

   a := random(10, 50);

   Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;

 end;

 if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;  

 Writeln('Всего выиграшных билетов: ', count, ' из ', N); end  

 else Writeln('Нет ни одного выиграшного билета');

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота