Question

Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.

Answer 1

Var a: array[1..7] of real;
     k, n: integer;
begin
  readln(k, n);
  for i:=1 to 7 do begin
     read(a[i]);
     if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
    write(a[i], ' ');
end.