Сначала сформировать массив из n случайных целых чисел (положительных и отрицательных) .найти наименьший положительный элемента среди элементов с четными номерами массива .

223

441

Посмотреть ответы 2

Ответы на вопрос:

Ололошка580

Информатика

4,8(11 оценок)

Const 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.