Одномерный массив заполнить случайными числами. Найти в непустом массиве минимальный элемент и определить его порядковый номер.
Подсчитать количество элементов, равных минимальному. Результаты выдать на экран.

только если можно без константы.чтобы можно было ввести любое число.
НУЖНА ПРОГРАММА ПОСКАЛЬ!

более месяца назад

Просмотров : 18 Ответов : 1

Лучший ответ:

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger(n=),-20,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

более месяца назад

Ваш ответ:

Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.