Создать одномерный массив из 13 элементов. Вычислить наименьшее значение из четных элементов. Вывести его значение и индекс.
"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы.
const
n=13;
var
a:array[1..n] of integer;
i,imin:integer;
begin
{ инициализация }
Randomize;
Writeln(Элементы массива);
for i := 1 to n do
begin
a[i]:=Random(50);
Write(a[i]:3)
end;
Writeln;
{ поиск минимума }
i:=4; imin:=2;
while i<=n do begin
if a[imin]>a[i] then imin:=i;
i:=i+2
end;
Writeln(Минимальный элемент с четным номером ,imin, равен ,a[imin]);
end.
Тестовое решение:
Элементы массива
30 23 5 19 36 10 10 37 42 4 23 37 34
Минимальный элемент с четным номером 10 равен 4
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
