Question

Найти наименьший элемент в одномерном массиве B 20

Answer 1

Ответ:

procedure Min;

var a:array[1..n] of integer;

    min:integer;

begin

for i:=1 to n do

   begin

   readln(a[i]);

   end;

a[1]:=min;

for i:=1 to n do

   begin

   if a[i]<min then min:=a[i];

   end;

writeln('Минимальный элемент матрицы = ',min);

end;

Объяснение:

Answer 2

===== PascalABC.NET =====

begin

 var B := ArrRandom(20, -99, 99);

 B.Println;

 Println('min =', B.Min)

end.