Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов…

Question

50

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

aleksej · Accepted Answer

82

aleksej

22 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: