Задача №312. Дан массив из n элементов. Найти номер наименьшего элемента массива.

Question

Информатика

Казимира

4 июля, 20:11

Задача №312. Дан массив из n элементов. Найти номер наименьшего элемента массива.

+1

Ответы (1)

Знаете ответ на вопрос?

Михайлыч · Answer 1

var a:array[1 ... 1000] of integer;

n, i, min, nomer:integer;

begin

write ('Vvedite N = ') ;

read (n) ;

for i:=1 to n do begin

write ('Vvedite a[', i,']=') ;

read (a[i]) ;

end;

min:=a[1];

for i:=1 to n do if min>=a[i] then begin min:=a[i]; nomer:=i; end;

write ('Nomer minimalnogo elementa = ', nomer) ;

end.