Составьте программу вычисления в одномерном массиве минимального элемента и его номера.

Question

Составьте программу вычисления в одномерном массиве минимального элемента и его номера.

Answer 1

1)
var
a: array [1..100] of longint;
i,j,k,n:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
k:=a[1]; j:=1;
for i:=1 to n do
  if a[i]writeln(k, '  ',j);
end.

Answer 2

Uses crt;
const N=10;
var a:array [1..N] of integer;
    x,y,min:integer;
begin
     for x:=1 to N do
     begin
          write('a[',x,']:');
          readln(a[x]);
     end;
     min:=a[1];
     y:=1;
     for x:=1 to N do
     if a[x]     begin
          min:=a[x];
          y:=x;
     end;
     writeln('min[',y,']:',min);
end.