Написать программу вывод минимального элемента массива целых чисел

uses crt;

var

  a: array[1..100] of integer;   i,min: integer; begin

  randomize;   write('введи количество элементов массива: '); read(i);   min: =100;

  clrscr;   writeln('массив: ');   for i: =1 to i do  begin    a[i]: =random(10)-9;     write(a[i]: 4);     if a[i]< min then min: =a[i];   end;   writeln;   write('минимальный элемент массива: ',min); end.

const

  n=15;

var

  a: array [1..n] of integer;

  i,min: integer;

begin

  for i: =1 to n do

    begin

    write ('a[',i,'] = '); readln(a[i]);

    end;

  min: =a[1];

  for i: =2 to n do

    if a[i]< min then min: =a[i];

  writeln ('min: ',min);

  readln;

end.

Y: = round(3*7 div y mod 7/3)/y – trunc(0.724) для удобства анализа введем добавочные скобки и пробелы. y : = round( ( (3 * 7) div y ) mod (7 / 3) ) / y – trunc(0.724) 3*7 даст величину целочисленного типа.тип переменной y в операции (3*7) div y может быть по определению этой операции только целочисленным. целочисленным будет и её результат.деление 7/3 даст результат вещественный, так уж устроена операция "/"получаем по типам: < целочисленный> mod < вещественный> . операция mod определена только для целочисленных операндов, поэтому тут ошибка.

// pascalabc.net 3.0, cборка 1052 var   a: integer;   i, j, max: integer; function f(a, b: integer): integer; begin   if a > b then result : = a else result : = b end; begin   randomize;   max: =-1;   write('набор чисел: ');   for i : = 1 to 5 do   begin       a: = random(10);       write(a,' ');       max: =f(max,a)   end;   writeln(#13#10,'максимальное число равно ',max) end. тестовое решение: набор чисел: 6 8 5 1 2 максимальное число равно 8