Организовать поиск минимального элемента массива - 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.

Оцени полезность:

5 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы