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

Ответы 2

  • что-то не так, но спасибо
  • 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], ' ');
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years