Задать массив из 10 элементов случайным набором из отрезка [5; 20] и вывести его на экран. Найти наименьший элемент и вывести его номер.

Question

Информатика

Радмила

10 марта, 09:20

Задать массив из 10 элементов случайным набором из отрезка [5; 20] и вывести его на экран. Найти наименьший элемент и вывести его номер.

+5

Ответы (1)

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

Лия · Answer 1

Var

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

i, m : integer;

begin

randomize;

for i : = 1 to 10 do

begin

a[i] : = random (16) + 5;

write (a[i], ' ') ;

end;

writeln;

m : = 1;

for i : = 2 to 10 do

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

write (m) ;

end.