Вопрос школьника по предмету Информатика
Одномерный массив заполнить случайными числами. Найти в непустом массиве минимальный элемент и определить его порядковый номер.
Подсчитать количество элементов, равных минимальному. Результаты выдать на экран.
только если можно без константы.чтобы можно было ввести любое число.
НУЖНА ПРОГРАММА ПОСКАЛЬ!
Ответ учителя по предмету Информатика
// 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
Похожие вопросы от пользователей
дискриминант