Работа с одномерными массивами. для контрольного примера можно взять массивы, состоящие из пяти, шести элементов: в массиве чисел в1, в2, …, вn найти минимальное число и его номер. в паскале.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println; var imin:=b.IndexMin; Writeln('Номер минимального элемента: ',imin+1); Writeln('Значение минимального элемента: ',b[imin]) end.
Пример n= 6 14 28 15 -2 49 11 Номер минимального элемента: 4 Значение минимального элемента: -2
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
var imin:=b.IndexMin;
Writeln('Номер минимального элемента: ',imin+1);
Writeln('Значение минимального элемента: ',b[imin])
end.
Пример
n= 6
14 28 15 -2 49 11
Номер минимального элемента: 4
Значение минимального элемента: -2