С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти номер минимального элемента массива; 2) вычислить сумму элементов массива, расположенных между первым и вторым отрицательными...

С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти номер минимального элемента массива; 2) вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами; 3) преобразовать массив таким образом, чтобы сначала располагались, все элементы, модуль которых не превышает 1, а потом – все остальные. Примечание: Размеры массивов задаются именованными константами. Все операции над массивами выполняются отдельными процедурами и функциями в том порядке, в котором они описаны в задании. Элементы массивов задаются одним из двух способов: генерация случайным образом или ввод с клавиатуры. Способ заполнения массива выбирается пользователем. Реальную размерность массива программа должна спрашивать у пользователя (в диапазоне от единицы до значения, определяемое константой).
Гость
Ответ(ы) на вопрос:
Гость
//Pascal ABC.NET 3.1 сборка 1219 Const  nc=10000; Type  ty=array[1..nc] of real;  function minind(ar:ty;n:integer):integer; Var  i,mini:integer;  min:real; begin min:=11;   for i:=1 to n do    if ar[i]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы