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

Question

Информатика

Викторка

6 февраля, 14:51

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

+3

Ответы (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.