Question

Заполнить массив из 13 элементов случайными числами в интервале [10..-10] и найти в нем минимальный элемент и его номер
Пожалуйста, очень нужно

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..13] of integer;

begin

 for var i:=1 to 13 do

   arr[i]:=random(-10,10);

 arr.PrintLn(', ');

 

 writeln('Минимальный элемент: '+arr.Min());

 write('Его индекс(ы): ');

 for var i:=1 to 13 do

   if arr[i]=arr.Min() then write(i+' ');

end.

Answer 2

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var arr := ArrRandomInteger(13, -10, 10);

   Println(arr);

   WritelnFormat('Минимальный элемент: A[{0}] = {1}', arr.IndexMin(), arr.Min());

end.