Ответ письменно написать программу , ; Дан массив из 30 элементов в диапазоне от -17 до 35. Найти min элемент среди элементов с нечетными номерами(порядковыми номерами). На языке программирования , в Visual BasicПаскаль

Предыдущий
вопрос Следующий
вопрос

Для Visual Basic:

Module Module1
Sub Main()
Dim arr(29) As Integer
Dim min As Integer = Int32.MaxValue
' Инициализация массива случайными числами
Dim rnd As New Random()
For i As Integer = 0 To 29
arr(i) = rnd.Next(-17, 36)
Next
' Поиск минимального элемента среди элементов с нечетными индексами
For i As Integer = 1 To 29 Step 2
If arr(i) < min Then
min = arr(i)
End If
Next
Console.WriteLine("Минимальный элемент среди элементов с нечетными индексами: " & min)
End Sub
End Module

Для Pascal:

program MinElement;
var
arr: array[0..29] of Integer;
min, i: Integer;
begin
Randomize;
min := MaxInt;
// Инициализация массива случайными числами
for i := 0 to 29 do
begin
arr[i] := Random(53) - 17;
end;
// Поиск минимального элемента среди элементов с нечетными индексами
for i := 1 to 29 step 2 do
begin
if arr[i] < min then
begin
min := arr[i];
end;
end;
writeln('Минимальный элемент среди элементов с нечетными индексами: ', min);
end.