Вывести массив, его минимальный элемент и номер этого элемента в массиве.Массив размерности 50.Помогите пожалуйста!
Ответы
Ответ дал:
0
Индексы в массиве начинаются с 0
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(50,-20,20);
var min:=a[0];
var n:=0;
a.Println;
for var i:=1 to 49 do if a[i]<min then
begin
min:=a[i];n:=i;
end;
println('Минимальный в масиве ',a[n],' его индекс ',n);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(50,-20,20);
var min:=a[0];
var n:=0;
a.Println;
for var i:=1 to 49 do if a[i]<min then
begin
min:=a[i];n:=i;
end;
println('Минимальный в масиве ',a[n],' его индекс ',n);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад