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

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
begin 
 readln(a);  
if i=1 then   
begin     mn:=a;    
k:=1  
 end  
else
if abegin    
mn:=a;    
k:=i   
end;  
i:=i+1 
end;
write('Минимальный элемент=',mn,' его номер=',k); end.