Question

Набрать программу в Pascal ABС. Из N целых чисел найти минимальное значение
Помогите пожалуйста срочно!!!!

Answer 1

Ответ:

Объяснение:

var n, min, i  : Integer;

   arr : array[1..100] of Integer;

begin

   write('n  = '); readln(n);

   for i := 1 to n do readln(arr[i]);

   

   min := arr[1];

   

   for i := 2 to n do if arr[i] < min then min := arr[i];

   writeln('min = ', min);    

end.