Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
оператор цикла
погите...

Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер наименьшего из них.
1 | Автор: Люб2 | 2011-06-01, 20:43   |  Репутация: [ + 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
2 | Автор: Berestovskiy | 2011-06-01, 23:51   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: