Question

Составьте программу, которая в массиве, состоящем из 20 элементов, определяет сколько элементов имеют минимальное значение. Даю 35 баллов!!!

Answer 1

Ответ:

• begin
• var a := ArrRandom(20, 10, 15);
• var min:= a.Min;
• Println('Массив:',a.JoinToString);
• Println('Количество:',a.Count(x->x=min));
• end.

Примечание:

ArrRandom(n, a, b) --- возвращает одномерный массив длиной n, заполненный случайными целыми значениями в диапазоне от a до b.

Пример работы: