В одномерном массиве из N вещественных элементов, вычислить:
Добавлено: 25 мар 2013, 16:01
• номер минимального по модулю элемента массива;
• сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Сжать массив, удалив из него все элементы, величина которых находится в
интервале [a, b]. Освободившиеся в конце массива элементы заполнить нулями.
вот что я придумал про первый пункт:
Var X:array[1..100] of real;
i,imin,n:integer;
Begin
write('Введите N: ');readln(n);
writeln('Исходный');
For i:=1 to n do
Begin
X:=random (10)-10;
write(X);
End;
imin:=1;
For i:=2 to n do
if abs(X)<abs(X[imin]) then imin:=i;
writeln;
writeln('Индекс min по модулю элемент = ',imin);
end.
• сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Сжать массив, удалив из него все элементы, величина которых находится в
интервале [a, b]. Освободившиеся в конце массива элементы заполнить нулями.
вот что я придумал про первый пункт:
Var X:array[1..100] of real;
i,imin,n:integer;
Begin
write('Введите N: ');readln(n);
writeln('Исходный');
For i:=1 to n do
Begin
X:=random (10)-10;
write(X);
End;
imin:=1;
For i:=2 to n do
if abs(X)<abs(X[imin]) then imin:=i;
writeln;
writeln('Индекс min по модулю элемент = ',imin);
end.