Элементарная обработка одномерных массивов. Паскаль.

[ali23210275]

1) Составте программу заполнения одномерного массива пятью элементами, которые вычисляются по формуле А(N)=1/N!.
2) Составте программу удаления отрицательных элементов одномерного массива a(N).

[VIK_aka_TOR]

обработка и в правду элементарная... и где ваши элементарные наработки?...

[ali23210275]

еслиб у меня что нить было я б сюда не выкладывала

[123_]

const
  n = 5;

var
  a: array [1 .. n] of real;
  i, k: integer;

begin
  k := 1;
  for i := 1 to n do
  begin
    k := k * i;
    a[i] := 1 / (k);
  end;
  for i := 1 to n do
    writeln(i, '  element = ', a[i]:1:17);
  readln;

end.

[temaps]

2) решена в соседней ветке двумя способами:

repeat
  isFound := false;
  for i := 1 to n do 
    if a[i] < 0 then
    begin
      isFound := true;
      temp := a[i]
      a[i] := a[n]
      a[n] := temp;
      Dec(n);
      break;
    end;
until isFound = false;

Но я бы сделал так:

i:=1;
while i<=n do
begin
    if a[i] < 0 then
    begin
      p := a[i]
      a[i] := a[n]
      a[n] := p;
      Dec(n);
    end
else
  inc(i);
end;