Question

сформировать и вывести на экран последовательность из n элементов

Answer 1

uses crt;
var n,i,a,mn,
k:integer;
begin write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
 k:=0;
 i:=1;
 while i<=n do 
begin 
 readln(a);  
if i=1 then   
begin     mn:=a;    
k:=1  
 end  
else
if a<mn then   
begin    
mn:=a;    
k:=i   
end;  
i:=i+1 
end;
write('Минимальный элемент=',mn,' его номер=',k); end.