Организовать поиск минимального элемента массива - Pascal ABC
Формулировка задачи:
Помогите, прошу!
Сформировать одномерный массив из 10 чисел, элементы которого выбрасываются случайным образом из отрезка от 50 до 100. Организовать поиск минимального элемента.
Решение задачи: «Организовать поиск минимального элемента массива»
textual
Листинг программы
var a:array [1..10] of integer; i,min:integer; BEGIN min:=101; For i:=1 to 10 do a[i]:=Random(51)+50; For i:=1 to 10 do IF a[i]<min THEN min:=a[i]; Writeln (min); END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д