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

Дан массив из n различных элементов. определить количество расположенных до минимального элемента массива

👇
Ответ:
hhhttt1520
hhhttt1520
21.11.2021
Var a:array[1..10000]of longint;
     n,i,j,min:integer;
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedit chisla');
  for i:=1 to n do read(a[i]);
  min:=a[1];
  for i:=1 to n do
    begin 
      if min>a[i] then begin min:=a[i];j:=i;end;
    end;
  write(i-1);
end.
если n будет больше то в описании увеличь размер массива там где подчеркнуто
4,7(71 оценок)
Открыть все ответы
Ответ:

Автоматизированная система - это система, состоящая из персонала и комплекса средств автоматизации его деятельности, реализующая автоматизированную технологию выполнения установленных функций.

Автоматизированная система управления или АСУ - комплекс аппаратных и программных средств, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия.

АСУ применяются в различных отраслях промышленности, энергетике, транспорте и т. п.

К основным принципам автоматизации информационных процессов относят: окупаемость, надежность, гибкость, безопасность, дружественность, соответствие стандартам.

Окупаемость означает затрату меньших средств, на получение эффективной, надёжной, производительной системы, возможностью быстрого решения поставленных задач. При этом считается, что срок окупаемости системы должен составлять не более 2–5 лет.

Надежность достигается использованием надёжных программных и технических средств, использования современных технологий. Приобретаемые средства должны иметь сертификаты и (или) лицензии.

Объяснение:

4,7(21 оценок)
Ответ:
bitkut
bitkut
21.11.2021
PascalABC.NET

Для табулирования любой функции на любом отрезке с любым шагом и любой точностью. При всевозможных значениях "косметика" (которой в предыдущем ответе вообще нет) не нарушается.

procedure Tabulate(a,b,h:real; f:real->real; k:byte:=2; sp:byte:=3);beginvar w := Seq(a, a+Trunc((b-a)/h)*h).Max(x->x.ToString.Length)+k+1;Writeln(' x'.PadLeft(w), ' '*sp, 'y');repeat Writeln(a:w:k, ' '*sp, f(a):0:k); a+=h until a>bend; beginvar a := ReadInteger('Введите a:');Tabulate(1, 10, 1, x->Cos(x+a))end.

Пример работы:


Pascal Выполнить табулирование функции y = cos(x + a) на отрезке [1, 10] c шагом h=1. А вводится пол
4,7(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ