Question

Дан массив С. Найти номер и минимальный элемент в массиве.

Answer 1

Var ar:array[1..10] of integer;
i,min,mini:integer;
begin;
min:=101;
randomize;
writeln('Array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(100);
  write(ar[i]:4);
  if ar[i]<min then
   begin;
    min:=ar[i];
    mini:=i;
   end;
end;
writeln;
writeln('Min:',min,' in number:',mini);
end.