Найти значения минимального элемента одномерного целочисленного массива.

286

499

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

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

miku1368

Информатика

4,7(82 оценок)

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin var a: =arrrandom(readinteger('n='),10,50); a.println; var m: =a.min; write('номера минимальных элементов (',m,'): '); a.select((x,i)-> rec(x,i+(x-> x.item1=m) .select(x-> x.item2).println(','); end. тестовое решение: n= 20 34 15 12 31 38 43 12 24 13 49 25 33 16 12 25 33 46 16 38 34 номера минимальных элементов (12): 3,7,14

scrqppy2000

Информатика

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

//pascal abc.net v3.1 сборка 1172 const n=5; var ar: array[1..n] of integer; i,min: integer; sa: set of integer; begin min: =maxint; for i: =1 to n do begin readln(ar[i]); if ar[i]< =min then begin if ar[i]=min then sa: =sa+[i] else sa: =[i]; min: =ar[i]; end; end; writeln('min=',min); writeln('index: ',sa); end. пример ввода: 98777 пример вывода: min=7index: {5,4,3}