Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Поиск минимального элемента массива .
Введите в одной строке элементы массива(5 целых чисел) и нажмите <Enter>.
_>23 0 45-5 12
Минимальный элемент массива:-5​

var

 n, i, min, k: integer;

begin

 WriteLn('Поиск минимального элемента массива.');

 Write('Введите количество чисел N = ');

 ReadLn(n);

 WriteLn('Введите в одной строке элементы массива (', n, ' целых чисел) и нажмите <Enter>.');

 for i := 1 to n do

 begin  

   Read(k);

   if i = 1 then if k < min then k := min else min := k else if k < min then min := k;

 end;  

 WriteLn('Минимальный элемент массива: ', min);

end.

Объяснение:

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.