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

Question

Информатика

Фемистокл

2 декабря, 05:27

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

+5

Ответы (1)

Знаете ответ на вопрос?

Альбинка · 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.