Из чисел a, b, c и d введенных с клавиатуры, вывести порядковый номер наименьшего из них.

Question

Информатика

Роза

30 июля, 07:52

Из чисел a, b, c и d введенных с клавиатуры, вывести порядковый номер наименьшего из них.

+5

Ответы (1)

Знаете ответ?

Игорюха · Answer 1

Если на Паскале и не совсем оптимально, то так:

var

a, b, c, d, nmin, min: integer;

begin

min:=MaxInt;

readln (a) ;

if a
nmin:=1;

min:=a;

end;

readln (b) ;

if b
nmin:=2;

min:=b;

end;

readln (c) ;

if c
nmin:=3;

min:=c;

end;

readln (d) ;

if d
nmin:=4;

min:=d;

end;

writeln (nmin) ;

end.