Найти номера всех элементов с минимальными значениями. вывести кол-во таких элементов(паскаль)

279

494

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

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

гость162

Информатика

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

Const k = 33; var a: array[1..k] of integer; i,m,n: integer; begin for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; m: =a[1]; n: =0; for i: = 2 to k do if a[i]< m then m: =a[i]; for i: = 1 to k do if a[i]=m then n: =n+1; writeln('количество минимальных элементов: ',n); write('номера минимальных элементов: '); for i: = 1 to k do if a[i]=m then write(i,' ') end. пример: 5 0 5 -5 -5 -4 -7 -9 9 8 -4 6 -4 -9 2 -5 -9 4 6 -8 -4 -1 1 -8 -8 -3 -4 2 -9 1 5 -4 -2 количество минимальных элементов: 4 номера минимальных элементов: 8 14 17 29