Question

Дан массив из 8 целочисленных элементов. Элементы вводятся с клавиатуры (все элементы
различны). Найти минимальный элемент численного массива и его порядковый номер.

Answer 1

program n1;
var a:array[1..8] of integer; 
     min,i:integer;
begin
writeln('Введите массив из 8 целочисленных элементов:');
read(a[1]); 
min:=1; 
for i:=2 to 8 do
 begin
  read(a[i]);
  if a[i]<a[min] then min:=i;
 end;

writeln('Минимальный элемент данного массива: ',a[min]);
writeln('Его порядковый номер: ',min);
end.