Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел. Ниже приведен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Поиск минимального элемента массива .
Введите в одной строке элементы массива(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.

Объяснение:

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.