С одномерным массивом, состоящим из 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]
Не нашли ответ?
Похожие вопросы