Дана непустая последовательность различных натуральных чисел, за которой следует 0. определить порядковый номер наименьшего из них. разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик
uses crt; var a,mn,n,imn:integer; begin clrscr; writeln('Введите натуральные числа, окончание ввода 0:'); repeat readln(mn); until mn>0; n:=1; imn:=1; repeat repeat readln(a); until a>=0; n:=n+1; if(a<>0)and(a<mn) then begin mn:=a; imn:=n; end; until a=0; write('Минимальное из чисел, не считая 0=', mn,' его номер=',imn); readln end.
