Хелпаните с программой плз.Дан массив из 233 элементов все элементы которого -...

Question

Хелпаните с программой плз.Дан массив из 233 элементов все элементы которого - неотрицательные числа, не превосходящие 10000. Напишите программу, которая находит и выводит минимальное трехзначное число, записанное в этом массиве. Ввод массива осуществить с помощью генератора случайных чисел.

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

// На случай если нужен вывод исходного массива

 ArrRandom(233,0,10000).Println.Where(t->t.InRange(100,999)).Min.Println;

// Если не нужен исходный массив, но нужны все трехзначные числа

 ArrRandom(233,0,10000).Where(t->t.InRange(100,999)).Println.Min.Println;

// Если нужен только минимальный трехзначный элемент

 ArrRandom(233,0,10000).Where(t->t.InRange(100,999)).Min.Println;

end.