М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zhuniorneimar486
zhuniorneimar486
03.12.2021 04:43 •  Информатика

Ввести массив из 30 случайных чисел промежутка [50..99], подсчитать число элементов, состоящих из 2-ух одинаковых чисел. , .

👇
Ответ:
dasha1975
dasha1975
03.12.2021
Program n1;
Uses Crt;
var  a: array[1..30] of integer; 
 k,m,i,j,n: integer;
begin 
   for i:=1 to 30 do
    begin 
     a[i]:=random(50)+50; 
     write(a[i],' ');
    end;
    writeln; writeln('---'); 
        k:=0; n:=1;
for i:=1 to 30 do begin
   n:=0;   m:=a[i];
   for j:=1 to 30 do begin
     if (m=a[j]) and (i<>j) and (n<2) then begin
      k:=k+1;  n:=n+1; 
    end; 
 end;
end;   
 writeln('Kol-vo chisel - ', k/2);
end.

Вроде бы сделал так, как требовалось.
4,7(80 оценок)
Открыть все ответы
Ответ:
Alon4ik123
Alon4ik123
03.12.2021

Если введенный с клавиатуры режим будет равен "1", то массив нужно будет заполнить вручную, если режим будет равен любому другому положительному числу, то массив заполнится случайными числами и выведется на экран.

Объяснение:

#include <iostream>

#include <ctime>

int main()

{

using namespace std;

setlocale(LC_ALL, "ru");

srand(time(0));

uint16_t arr[12];

int regim;

cout << "Введите режим: " << endl;

cin >> regim;

if (regim == 1)

{

 for (uint16_t i = 0; i < 12; i++)

  cin >> arr[i];

 for (uint16_t i = 0; i < 12; i++)

  cout << arr[i] << '\t';

}

else

{

 for (uint16_t i = 0; i < 12; i++)

 {

  arr[i] = rand() % 30;

  cout << arr[i] << '\t';

 }

}

return 0;

}

4,4(69 оценок)
Ответ:
ляятоп
ляятоп
03.12.2021

На панели инструментов Редактор 3D (3D Editor) содержится набор инструментов для создания, обновления или удаления объектов непосредственно на экране. Редактирование в 3D спроектировано для работы с дополнительным модулем ArcGIS 3D Analyst в ArcGlobe и ArcScene. Процесс редактирования в 3D мало отличается от редактирования в ArcMap (2D). Однако, имеются некоторые фундаментальные отличия. Все инструменты легко найти на прикрепляемой панели инструментов и в ниспадающем меню Редактор 3D (3D Editor). У вас имеется доступ к полному набору команд, включая Переместить (Move), Повернуть (Rotate), Размер (Size) и Масштаб (Scale), а также к специализированным 3D-инструментам, например, к инструментам для работы с объектами мультипатч. Все инструменты обеспечивают обновление поверхности в реальном времени, что позволяет как сохранять изменения непосредственно в документе, так и отменять эти изменения.

4,4(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ