Question

de elaborat un program care calculeaza intr-un tabel liniar de numere intregi elementul minim din cest tabel si locul lui.

Answer 1

var a:array [1..100000] of integer;
n,i,x,min:integer;

begin
  read(n);
  for i:=1 to n do
    read(a[i]);

  x:=1; min:=a[1];
  for i:=1 to n do
    if (a[i]<min) then
    begin
      min:=a[i];
      x:=i;
    end;

    writeln('Elementul minim ',min);
  writeln('Indecele emelementului minim ',x);
  readln;
end.