Одномерный массив заполнить случайными числами. найти в непустом массиве минимальный элемент и определить его порядковый номер. подсчитать количество элементов, равных минимальному. результаты выдать на экран. только если можно без константы.чтобы можно было ввести любое число. нужна программа поскаль!

260

357

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

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

arinka3859

Информатика

4,6(31 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',20); a.println; var imin: =a.indexmin; writeln('номер минимального элемента- ',imin+1); writeln('элементов, равных минимальному- ', a.where(x-> x=a[imin]).count-1) end. пример n= 50 -13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10 номер минимального элемента- 13 элементов, равных минимальному- 2

ира8800

Информатика

4,6(90 оценок)

На каком языке программирования? паскаль абс var i,count: integer; a: array [1..16] of integer; begin for i: =1 to 16 do begin a[i]: = random (-20,20); end; for i: =1 to 16 do begin if (a[i] = 0) then writeln ('нулевой элемент ',a [i]); if (a [i] mod 2 = 1) then writeln ('индекс нечетного элемента ',i); if (a [i] > 0) then inc (count); end; writeln ('количество положительных чисел ',count); end.