Напишите программу, которая находит среди элементов массива, состоящего из n элементов, наименьший элемент и его порядковый номер.

Question

Информатика

Павлина

19 января, 23:01

Напишите программу, которая находит среди элементов массива, состоящего из n элементов, наименьший элемент и его порядковый номер.

+4

Ответы (1)

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

Костя · Answer 1

Var

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

i, min, n, c:integer;

begin

readln (n) ;

for i:=1 to n do

begin

read (a[i]) ;

if i = 1 then

min:=a[i];

if a[i]
begin

min:=min+a[i];

a[i]:=min - a[i];

min:=min - a[i];

c:=i;

end;

end;

writeln ('a[', c,']=', min) ;

end.