Question

Одновременый целочисленный массив из 15 элементов задан [0.200] .Найти минимальный элемент этого массива

Answer 1

Мы такое проходили по моему это так
begin
  var a := ArrRandom(15, 0, 200);
  a.Println();
  Writeln(a.Min())
end. удачи

Answer 2

Program mass;
const
n=15;
type
myarray = array [1..n] of integer;
var
a: myarray;
i,y: byte;
begin
randomize;
y:=200;
for i:=1 to n do begin
    a[i]:=random (200);
    write(a[i]:4);
    if y>a[i] then y:=a[i];
    end;
writeln;
writeln('min=',y);
readln;
end.