Водномерном массиве из 10 элементов определить местоположение минимального и максимального элементов. обнулить элементы, стоящие между ними , а также вывести полученный массив

248

346

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

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

sashachernov1

Информатика

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

Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному. const n=10; var a: array[1..n] of integer; mn,mx: integer; i,k1,k2: byte; begin mn: =maxint; mx: =-maxint; writeln ('введите ',n,' чисел: '); for i: =1 to n do begin; read (a[i]); if a[i]< mn then begin mn: =a[i]; k1: =i end; if a[i]> mx then begin mx: =a[i]; k2: =i end; end; for i: =1 to n do if (i> min(k1,k2)) and (i< max(k1,k2)) then a[i]: =0; writeln; writeln ('местоположение минимального элемента: ',min(k1,k2)); writeln ('местоположение максимального элемента: ',max(k1,k2)); writeln; print (a); end. пример: введите 10 чисел: 5 2 9 4 6 8 2 1 3 7 местоположение минимального элемента: 3 местоположение максимального элемента: 8 5 2 9 0 0 0 0 1 3 7

Daya98888888

Информатика

4,4(81 оценок)

Program massiv; var a: array [1..10] of integer; i: integer; p: real; begin p: =1; for i: =1 to 10 do a[i]: =random (100+100+1)-100; for i: =1 to 10 do if a[i]> 0 then p: =p*a[i]; writeln ('произведение положительных чисел массива = ',p); end.