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

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы, и их номера. программа на языке паскаль.

👇
Ответ:
cstslp0ahrl
cstslp0ahrl
11.07.2022
Var
  arr : array [1..10] of integer; //Объявляем массив
  i, min, max : integer;         //Индекс, позиция минимального элемента, позиция максимального элемента
begin
  min := 1;
  max := 1;

  for i := 1 to 10 do
    arr[i] := Random(20) - 10;   //Заполняем массив
 
  for i := 2 to 10 do            //Находим позицию максимального элемента
    if arr[i] > arr[max] then
      max := i;

  for i := 2 to 10 do            //Находим позицию минимального элемента
    if arr[i] < arr[min] then
      min := i;

  writeln('Максимальный элемент: ', arr[max], '; его позиция: ', max); 
  writeln('Минимальныйй элемент: ', arr[min], '; его позиция: ', min);
end.
4,7(12 оценок)
Открыть все ответы
Ответ:
57862327685
57862327685
11.07.2022

Відповідь:

Гигантский робот-баскетболист японской корпорации Toyota Industries Cue 3 попал в Книгу рекордов Гиннесса, сделав более двух тысяч попаданий в кольцо подряд.

 

В апреле 2019 года Toyota Industries представили робота-баскетболиста по имени Cue 3, который использует десятки сенсоров, чтобы рассчитать правильные углы и силу толчка, чтобы выполнить безупречный трёхочковый бросок. Инфракрасные датчики формируют в системе робота трёхмерное изображение, с которого Cue 3 определяет расстояние до корзины и её высоту. Впоследствии его суставы адаптируются под запрограммированный угол при моторчиков, которые также регулируют скорость и направление движения рук и ног робота. Система запоминать все необходимые параметры и повторять идентичное движение с каждым броском.

 

Имя робота Cue 3 отображает идею сотрудников компании, согласно которой технологии всегда будут рядом с нами человечеству достигать желаемого. Японцы считают, что ключевая роль успеха в развитии технологий вовсе не в разнообразии вариантов их применения. Куда важнее то, что каждый шаг вперёд мотивирует всех причастных стремиться к большему и быть открытыми к новым идеям и вызовам. В случае с Cue 3 инженеры решили отойти от привычного облика их прежних роботов, как правило, выполненных из белого металла или пластика. Потому кожа баскетболиста напоминает панцирь броненосца, состоящий из множества костяных пластин.

Пояснення:

4,4(80 оценок)
Ответ:
araitokbasova
araitokbasova
11.07.2022

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

   Begin

   if (N mod 10) > A then A:= N mod 10;

   N:=N div 10;

   End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

   Begin

   if A=B then C:=true;

   if N>0 then

      Begin

      A:=N mod 10;

      N:=N div 10;

      End;

   if A=B then C:=true;

   if N>0 then

      Begin

      B:=N mod 10;

      N:=N div 10;

      End;

   End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

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