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