Question

Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 20 и находится минимальный элемент массива и его индекс

Answer 1

Const
  n=10;
var
  i,im:integer;
  a:array[1..10] of integer;
 
begin
  Randomize;
  im:=1;
  for i:=1 to n do begin
    a[i]:=Random(21)+1;
    Write(a[i],' ');
    if a[i]<a[im] then im:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',im,']=',a[im])
end.

Пример
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2