Question

Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.

Answer 1

program massiv;
var mass:array[1..15] of integer;
    i,j,a:integer;
begin
j:=mass[1];
for i:=1 to 15 do begin
mass[i]:=random(40)-20;
writeln(mass[i]:3);
if mass[i]<j then begin
j:=mass[i];
a:=i;
end;
end;
writeln('mass[',a,']=',j);
end.

Answer 2

var A: array [1..15] of integer;
    i, min, index: integer;
begin
  min:=A[1];
  for i:=1 to 15 do
    begin
    A[i]:=random(41)-20;
    write (A[i], ' ');
  end;
  writeln;
  for i:=1 to 15 do
  begin
    if min>A[i] then
      begin
      min:=a[i];
      index:=i;
  end;
  end;
  writeln('Минимальный элемент массива = ',min);
  writeln('Его индекс = ',index);
end.