Напишите программу выводящую индекс наименьшего числа 3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81

Question

Информатика

Галюха

27 марта, 11:16

Напишите программу выводящую индекс наименьшего числа 3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81

+4

Ответы (1)

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

Афанасия · Answer 1

var i, n, k, min:integer;

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

begin

write ('Write size array: ') ; readln (n) ;

for i:=1 to n do

read (a[i]) ;

min:=a[1];

for i:=1 to n do

if min>a[i]

then begin min:=a[i]; k:=i; end;

writeln (k) ;

end.