Question

Дан массив из 10 элементов (случайные). Вывести на экран элементы массива, наименьший элемент массива и его индекс.​

Answer 1

===== PascalABC.NET =====

begin

   var a := ArrRandom(10, -99, 99);

   a.Println;

   var i := a.IndexMin;

   Println('Минимальный', a[i], 'с индексом от нуля', i)

end.

Answer 2

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

i,imin,min: integer;

begin

randomize;

write('массив: ');

for i:=1 to 10 do begin

a[i]:=random(201)-100;

write(a[i],' ');

end;

writeln;

min:=a[1];

imin:=1;

for i:=2 to 10 do

if(a[i]<min) then begin

min:=a[i];

imin:=i;

end;

write('наименьший элемент: a[',imin,']=',min);

end.