Вопрос по информатике:
С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции:
1) найти номер минимального элемента массива;
2) вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами;
3) преобразовать массив таким образом, чтобы сначала располагались, все элементы, модуль которых не превышает 1, а потом – все остальные.
Примечание: Размеры массивов задаются именованными константами. Все операции над массивами выполняются отдельными процедурами и функциями в том порядке, в котором они описаны в задании. Элементы массивов задаются одним из двух способов: генерация случайным образом или ввод с клавиатуры. Способ заполнения массива выбирается пользователем. Реальную размерность массива программа должна спрашивать у пользователя (в диапазоне от единицы до значения, определяемое константой).
- 01.12.2017 16:55
- Информатика
- remove_red_eye 8054
- thumb_up 33
Ответы и объяснения 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]
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 do
r:=r+ar[i];
sum1to2:=r;
end;
procedure stransort(var ar:ty;n:integer);
Var i,j,nd:integer;
begin
nd:=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;
begin
randomize;
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 do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array:
3 2 1 2 1
Index of minimum:3
Sum=0
Final array:
1 1 3 2 2
- 02.12.2017 20:32
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.