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

Дан массив целых чисел, состоящий из 30 элементов. заполните его датчиком случайных чисел. найти: минимальный элемент массива и его порядковый номер.

👇
Ответ:
serzh1425
serzh1425
10.10.2021
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(30,-20,20); a.Println;
  Writeln('Минимум: A[',a.IndexMin+1,']=',a.Min)
end.

Тестовое решение:
8 20 2 2 -6 -11 7 20 -15 1 15 8 -1 13 -3 1 5 6 -6 -5 -2 13 -7 -7 -3 4 0 -7 10 5
Минимум: A[9]=-15
4,5(78 оценок)
Открыть все ответы
Ответ:
alexssrus1
alexssrus1
10.10.2021
Var
  i,n,k:integer;
begin
  Writeln('15 чисел, кратных 19:');
  i:=100;
  while i mod 19<>0 do Inc(i); { первое, кратное 19 }
  Write(i,' ');
  k:=1;
  while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end;
  Writeln
end.

Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380

Задача 2.
var
  m,V,rho,rmax:real;
  i:integer;
begin
  Writeln('Максимальная плотность материала для 30 тел.');
  Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)');
  rmax:=0;
  for i:=1 to 3 do
  begin
    Write(i:2,': '); Read(m,V);
    rho:=m/V;
    if rmax<rho then rmax:=rho
  end;
  Writeln('Максимальная плотность равна ',rmax:0:3)
end.
4,5(23 оценок)
Ответ:
timati06blacstar
timati06blacstar
10.10.2021

 

 

 

   

 Достоинства исполнителя Робот 

 

1) Скорость  

 

 

 Недостатки исполнителя Робот

 

 

 

1) Неправильный перевод предложения. Т. к  при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).

 

 

Достоинства исполнителя Человек

 

1) Возможность самостоятельно корректировать и дополнять заданный алгоритм

 2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая  структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .

3) Более точная передача смысла фразы 

 

 

 

 Недостатки  исполнителя Человек. 

 1) Значительно более низкая скорость перевода.

2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).

 

 

 

 

 

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