сначала сформировать массив из
n
случайных целых чисел
(положительных и отрицательных)
.Найти наименьший положительный элемента среди
элементов с четными номерами
массива
.
n
случайных целых чисел
(положительных и отрицательных)
.Найти наименьший положительный элемента среди
элементов с четными номерами
массива
.
Answers & Comments
n = 10;
var
a:array[1..n] of integer;
i,g,min:integer;
begin
min:= 9999;
randomize;
for i:= 1 to n do
a[i]:= random(1000)-500;
write('Элементы массива равны:');
for i:= 1 to n do
write( a[i],' ');
for i:=1 to n div 2 do
begin
g:=i*2;
if a[g]<min then
min:= a[g];
end;
writeln('Минимальный элемент мвссива: ', min);
end.