Последовательность чисел. Определить порядковый номер наименьшего.

09.11.2012, 18:38. **Показов** 1931. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Доброго времени суток... Помогите решить задачу по Turbo Pascal...
За ранние Спасибо...:

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

@Puporev · 09.11.2012, 19:00

Pascal

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.

Винценто
		1
	Последовательность чисел. Определить порядковый номер наименьшего. 09.11.2012, 18:38. Показов 1931. Ответов 1 Метки нет (Все метки) Доброго времени суток... Помогите решить задачу по Turbo Pascal... За ранние Спасибо...: Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.

	09.11.2012, 19:00

Последовательность чисел. Определить порядковый номер наименьшего.

Решение