1. Измените программы примеров 6.1 и 6.2 так, чтобы находился минимальный элемент в массиве

Слегка изменим программу из примера 6.1. Переменные max и n_max заменим на min и n_min. И находить будет соответственно минимальный элемент путём сравнения каждого элемента массива с минимальным на данный момент: if a[i] < min then.

var a: array[1..20] of integer;
 n, min, n_min: integer;
begin
 write('Количество n =');
 readln(n);
 writeln('Элементы массива');
 for var i := 1 to n do
  read(a[i]);
 min := a[1]; n_min := 1;
 for var i := 2 to n do
  if a[i] < min then
  begin
   min := a[i];
   n_min :=i;
  end;
 writeln('Минимум = ', min);
 writeln('Его место ', n_min);
end.
Другие задания