погите...
Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер наименьшего из них.
|
|
|
|
Держи))
var
i,a,pmin,p:integer;
begin
pmin:=32000;i:=1;
while a<>0 do begin
read(a);
if a<pmin then p:=i;
i:=i+1;
end;
writeln(p);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
