procedure Min;
var a:array[1..n] of integer;
min:integer;
begin
for i:=1 to n do
readln(a[i]);
end;
a[1]:=min;
if a[i]<min then min:=a[i];
writeln('Минимальный элемент матрицы = ',min);
Объяснение:
===== PascalABC.NET =====
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.
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;
Объяснение:
===== PascalABC.NET =====
begin
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.