Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры - Pascal ABC

Формулировка задачи:

Помогите пожалуйста с задачей Pascal последовательности! Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. Остановить обработку при вводе заказанного количества чисел. Тип обработки данных - вещественный.

Код к задаче: «Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры - Pascal ABC»

textual
Var m,min:real;
    i,n,imin:integer;
Begin
    Repeat
      write('Количество чисел для ввода: ');
      readln(n);
    Until n>0;
    writeln('Введите ',n,' чисел');
    imin:=0;
    For i:=1 to n do
    Begin
      read(m);
      if (m>0)and(imin=0) then
      Begin
        imin:=i;
        min:=m;
      End;
      if (m>0)and(m<min) then
      Begin
        imin:=i;
        min:=m;
      End;
    End;
    if imin > 0 then writeln('Индекс минимального положительного числа = ',imin)
     else writeln('Нет положительных чисел');
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.769 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы