Дан массив из двадцати элементов. Числа выбираются из промежутка от 0 до 50. Найти минимальное значение элемента и его место.

Question

Информатика

Леонидыч

26 марта, 17:55

Дан массив из двадцати элементов. Числа выбираются из промежутка от 0 до 50. Найти минимальное значение элемента и его место.

+3

Ответы (1)

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

Ларуня · Answer 1

Var a: array [1 ... 20] of integer;

i, m: integer;

begin

for i : = 1 to 20 do

begin

a[i] : = random (50) ;

writeln ('[', i, '] = > ', a[i]) ;

end;

m : = 1;

for i : = 1 to 20 do

if (a[m] > a[i]) then m : = i;

writeln ('[', m, '] = > ', a[m]) ;

end.