Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем два максимальных элемента и их номера. пример: исходный массив: .. максимальные a[4]=10, a[7]=8

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

Объяснение:

Машинное обучение (Machine Learning) это тренировка математической модели на исторических данных для того, чтобы прогнозировать какое-то событие или явление на новых данных. То есть попытка заставить алгоритмы программ совершать действия на основе предыдущего опыта, а не только на основе имеющихся данных.

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

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

Алгоритмов машинного обучение большое множество: одни эффективны для решения одного типа задач задач, вторые — для другого. Важно не путать машинное обучение, нейросети и искусственный интеллект, это принципиально разные вещи. Обучить искусственный интеллект можно не только методами машинного обучения, а кроме нейросетевых алгоритмов есть ещё и классическое обучение, и обучение с подкреплением.

Var a: array[1..100] of integer; //объявляем целочис. массив из 100 элементов i,j,c,k,n: integer; //целочислительные переменные f: boolean; // логические переменные begin // начало программы writeln('vvedite razmer massiva'); //выводим текст readln(n); //вводим переменную n writeln('vvedite el-ty massiva'); //выводим текст for i: =1 to n do  //повторить n раз begin write('a[',i,'] = '); readln(a[i]); end; {отвратный кодстайл. в данном цикле заполняем массив n количеством элементов. как будто нельзя было объявить динамический массив} writeln('massiv');       //вывод текста for i: =1 to n do write(a[i]: 4);   //выводим n элементов массива writeln; //сносим строчку k: =2; //k=2 while k< =n do //пока k меньше или равно n выполнять begin //начало тела цикла c: =a[k]; //с=a[k] i: =1;     //i=1 if c while f do //ошибка, странное сочетание логического оператора и цикла с предусловием begin //начало тела вложенного цикла, объявленного ошибочно a[k-i+1]: =a[k-i]; {элементу массива a, индекс которого равен k-i+1 присваивается  элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент} i: =i+1; //увеличение i на 1 f: =false; //f=ложь if i if c end; //ошибка, совсем упоротое сочетание условных операторов a[k-i+1]: =c; {элементу массива a, индекс которого равен k-i+1 присваивается c} k: =k+1; //k увеличивается на 1 {                   //комментарий как у меня for i: =1 to n do write(a[i]: 4); //снова вывод от 1 до n элементов массива writeln; //сноска строки } end; //выход из вложенного цикла //нет выхода из основного цикла //нет завершения программы //абсолютно нерабочий код //сожгите автора как ведьму