Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Объясните задачу!!!
Var i, n: integer;
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Объясните задачу!!!
Ves: array[1..14] of integer;
Begin
Ves[1]:= 25; Ves[2]:= 21;
Ves[3]:= 23; Ves[4]:= 28;
Ves[5]:= 30; Ves[6]:= 25;
Ves[7]:= 31; Ves[8]:= 28;
Ves[9]:= 25; Ves[10]:= 28;
Ves[11]:= 30; Ves[12]:= 27;
Ves[13]:= 26; Ves[14]:= 24;
n := Ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = Ves[i];
End;
Writeln(n);
End.
Объясните задачу!!!
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Дана программа на языке Pascal, которая находит минимальное значение в массиве Ves, состоящем из 14 элементов.
Сначала объявляются переменные i, n и массив Ves. Затем заполняется массив Ves значениями. Переменная n инициализируется значением первого элемента массива Ves.
Далее с помощью цикла For проходятся все элементы массива Ves. Внутри цикла проверяется, если текущий элемент массива меньше значения переменной n, то значение переменной n обновляется на значение текущего элемента массива.
По завершении цикла выводится значение переменной n, которая содержит минимальное значение из массива Ves.
Таким образом, программа находит и выводит минимальное значение из массива Ves.