Составить программу обработки последовательно вводимых с клавиатуры чисел - Turbo Pascal

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

Задание-Нахождение номера минимального значения в последовательности вводимых чисел. Остановить обработку при вводе признака конца – предварительно введенного пользователем числа. Тип обраб. данных - Целые.

Код к задаче: «Составить программу обработки последовательно вводимых с клавиатуры чисел - Turbo Pascal»

textual
Var a,imin,i,kn,min:integer;
Begin
    write('Признак конца ввода: ');readln(kn);
    Repeat
     write('Число: ');
     readln(a);
     if a=kn then break;
     inc(i);
     if i=1 then 
     Begin
       imin:=i;
       min:=a;
     End;
     if a<min then 
     Begin
       min:=a;
       imin:=i;
     End;
    Until a=kn;
    writeln('Min = ',min,' его индекс = ',imin);
    readln;
End.

12   голосов, оценка 3.583 из 5


СОХРАНИТЬ ССЫЛКУ