Имеется массив А(1.h) Найти элемент массива с минимальным значением

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var i:=a.IndexMin;
Writeln('Малый элемент с номером ',i+1,' равен ',a[i])
end.

Пример
h= 18
6 73 -69 -85 37 95 -16 58 -60 -91 59 -13 97 -30 -29 93 -23 -90
Малый элемент с номером 10 равен -91

Elizaveta Rzhaedinova · Answer 2 · 2019-08-09 03:35:36+3:00

12345678910111213141516171819202122232425262728293031include lt;iostreamgt;include lt;cstdlibgt; using namespace std; const int N = 10; int main() int mass[N], max, min; cout lt;lt; "Элементы: "; for(int r = 0; rlt;N; r++) mass[r] = rand()%99; cout lt;lt; mass[r] lt;lt; ""; cout lt;lt; endl; max = mass[0]; min = mass[0]; for(int r = 1; rlt;N; r++) if(max lt; mass[r]) max = mass[r]; if(min gt; mass[r]) min = mass[r]; cout lt;lt; "Min: " lt;lt; min lt;lt; endl; cout lt;lt; "Max: " lt;lt; max lt;lt; endl; return 0;

О проекте

Имеется массив А(1.h) Найти элемент массива с минимальным значением

Добро пожаловать!