Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

uses crt;var a,mn,n,imn:integer;beginclrscr;writeln(Введите натуральные числа, окончание ввода 0:);repeatreadln(mn);until mn>0;n:=1;imn:=1;repeat repeat  readln(a); until a>=0; n:=n+1; if(a<>0)and(a) then  begin   mn:=a;   imn:=n;  end;until a=0;write(Минимальное из чисел, не считая 0=,  mn, его номер=,imn);readlnend.