Ответ: //Pascal ABC.NET 3.1 сборка 1219Const nc=10000;Type ty=array[1..nc] of real; function minind(ar:ty;n:integer):integer;Var i,mini:integer; min:real;beginmin:=11; for i:=1 to n do if ar[i]<min then begin min:=ar[i]; mini:=i; end;minind:=mini;end;function sum1to2(ar:ty;n:integer):real; Var i,t1,t2:integer; r:real;begin for i:=1 to n do if ar[i]<0 then begin t1:=i; break; end; for i:=t1+1 to n do if ar[i]<0 then begin t2:=i; break; end;for i:=t1+1 to t2-1 dor:=r+ar[i];sum1to2:=r;end;procedure stransort(var ar:ty;n:integer);Var i,j,nd:integer;beginnd:=0; for i:=1 to n do if abs(ar[i])<=1 then begin inc(nd); swap(ar[i],ar[nd]); end;end; Var ar:ty; i,n:integer;beginrandomize; readln(n);writeln(‘Array:’);for i:=1 to n do begin ar[i]:=random(-3,3); write(ar[i]:4); end;writeln;writeln(‘Index of minimum:’,minind(ar,n));writeln(‘Sum=’,sum1to2(ar,n));stransort(ar,n);writeln(‘Final array:’);for i:=1 to n dowrite(ar[i]:4);end.Пример ввода:5Пример вывода:Array: 3 2 1 2 1Index of minimum:3Sum=0Final array: 1 1 3 2 2
С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции:
1) найти номер минимального элемента массива;
2) вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами;
3) преобразовать массив таким образом, чтобы сначала располагались, все элементы, модуль которых не превышает 1, а потом – все остальные.
Примечание: Размеры массивов задаются именованными константами. Все операции над массивами выполняются отдельными процедурами и функциями в том порядке, в котором они описаны в задании. Элементы массивов задаются одним из двух способов: генерация случайным образом или ввод с клавиатуры. Способ заполнения массива выбирается пользователем. Реальную размерность массива программа должна спрашивать у пользователя (в диапазоне от единицы до значения, определяемое константой).
— Правильный ответ на вопрос найдете ниже
17.10.2019 · 1