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

Question

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

Answer 1

//Pascal
var
  A: array [1..10] of byte;
  i, Min, MinID: byte;
begin
  randomize;
  Min := 100;
  for i := 1 to 10 do
  begin
    A[i] := random(20) + 1;
    if A[i] < Min then
    begin
      Min := A[i];
      MinID := i;
    end;
  write(A[i], ' ');
  end;
  writeln;
  writeln('Минимальный элемент A[',MinID,'] = ', Min);
  readln;
end.