Предмет: Информатика,
автор: tichinkirill
Вывести массив, его минимальный элемент и номер этого элемента в массиве.Массив размерности 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.
Интересные вопросы
Предмет: Биология,
автор: kyzyrbekovamadina
Предмет: Информатика,
автор: alina20079535
Предмет: Геометрия,
автор: anvid06
Предмет: Алгебра,
автор: Валерия266
Предмет: Математика,
автор: Маша1012