В одномерном массиве из N вещественных элементов, вычислить:

[MrDelni]

• номер минимального по модулю элемента массива;
• сумму модулей элементов массива, расположенных после первого отрицательного элемента.
Сжать массив, удалив из него все элементы, величина которых находится в
интервале [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[i]:=random (10)-10;
write(X[i]);
End;
imin:=1;
For i:=2 to n do
if abs(X[i])<abs(X[imin]) then imin:=i;
writeln;
writeln('Индекс min по модулю элемент = ',imin);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[interacia]

Вторая часть.

Var X:array[1..100] of real;
a,b,j,i,n:integer;
SUM:real;
bol:boolean;
 Begin
 write('Введите N: ');readln(n);
 For i:=1 to n do
 Begin
 X[i]:=random(20)-10;
 write(X[i],' ');
 End;
 // сумму модулей элементов массива,
 // расположенных после первого отрицательного элемента.
 SUM:=0;
 bol:=false;
 For i:=1 to n do
 begin
 if bol then SUM:=SUM+abs(X[i]);
 if X[i]<0 then bol:=true;
 end;
 writeln;
 writeln('SUM = ',SUM);
 // Сжать массив,
 // удалив из него все элементы,
 // величина которых находится в
 // интервале [a, b].
 // Освободившиеся в конце массива элементы заполнить нулями.
 writeln('Введите a');readln(a);
 writeln('Введите b');readln(b);
 j:=1;
 For i:=1 to n do
 begin
 if (X[i]>b)or(X[i]<a) then
   begin X[j]:=X[i];    inc(j);end;

 end;
 For i:=j to n do
 begin
   X[i]:=0;
 end;
 For i:=1 to n do
 begin
   write(X[i],' ');
 end;
end.

[Sciv]

X[i]:=random (10)-10;

А вот на эту формулу у Вас компилятор не ругается?

[Serge_Bliznykov]

Сообщение от Sciv

X[i]:=random (10)-10;

А вот на эту формулу у Вас компилятор не ругается?

Sciv, а у Вас ругается?
А как ругается и какой у Вас компилятор Паскаля?


HINT. попробуйте, кстати, вот так записать:

X[i] := -10 + random (10);

очень часто, этого бывает достаточно, чтобы ошибки не было...

[Sciv]

Sciv, а у Вас ругается?

не знаю, не проверял

и какой у Вас компилятор Паскаля?

у меня их три.

Я имел в виду, что Рандом возвращает вещественное число, если ему параметра не передавать, а с параметром на выходе имеем целое. Не?

На хелп не ссылаться - лезть туда некогда и лениво из-за такой мелочи.

[Serge_Bliznykov]

точно. с параметром на выходе имеем целое.
При присвоении целого числа вещественной переменной происходит неявное преобразование типов (всегда можно преобразовать целое -> вещественное).
Никаких проблем при этом не возникает.

p.s. Вас же не смущает код:

var x : real;
  i : integer;
begin
  x := 1; {присвоили ЦЕЛОЕ число ВЕЩЕСТВЕННОЕ переменной - будет неявное преобразование целого числа в вещественное}
или
  i := 2; {целое число в целочисленную переменную}
  x := i; {неявное преобразование целого - в вещественное}

[Dreew]

Ребят можете помочь мне с одномерным массивом,


в одномерном массиве, состоящем из п вещественных элементов, вычислить:
1) номер минимального элемента массива

[Stilet]

Нет не поможем. Не лезь в чужую тему - создавай свою.