1.найти наибольший элемент одномерного массива, состоящего из n элементов. элементы вводятся с клавиатуры. 2.найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. размер произвольный.

Program proga_1; var  x: real;   n: integer; function func(n: integer; x: real): real; var  i: integer;   i1, i2, i3: real;     //функция вычисления степени   function power(n: integer; x: real): real;   var    i: integer; res: real; begin res : = x; for i : = 1 to n - 1 do res : = res * x; power : = res;   end;   //фукция вычисления факториала    function factorial(x: integer): integer;   var    i, res: integer; begin for i : = 1 to x do inc(res, i);   factorial : = res;   end; begin   if n mod 2 = 0 then i1 : = 1 else i1 : = -1; //определяем число -1 степени n  i2 : = power(2 * n, 2 * x); i3 : = factorial(2 * n + 1); func : = (i1 * i2) / i3; end; begin  write('введите n: '); readln(n);   write('введите x: '); readln(x);     writeln('сумма равна: ', func(n, x));     end.

Program table; uses math; //подключаем модуль, возможно с модулем я ошибся var   // объявляем локальные переменные для программы     a , b, h : real; //указывает дробный тип числа function calculate_f( x: real) : real; //объявляем функцию в теле программы begin     calculate_f : =  1/2*sin(x/4+1)  ;   //записываем результат вычисления в функцию end; begin     a : = -0.99; //определяем     b : =   50.0;   //вводные     h : = 0.1; //значения     while a < b do begin //пока "a" меньше "b"           writeln("f(", a, ') =  ', calculate_f(a)); //выводим результат вычислений в строку           a : = a + h; //прибавляем шаг "h"     end; end. я могу и ошибиться, потому что писал на паскале давно : d поэтому вам прийдется поправить некоторые ошибки в коде.