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

Question

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

Answer 1

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]

  writeln ('Min: ',min);

  readln;

end.

Answer 2

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]  end;
  writeln;
  write('Минимальный элемент массива: ',min);
end.