Question

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик

Answer 1

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.