Leamrerol
7 год назад
Дан массив, состоящий из 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных - число n ( числа k и n вводятся с клавиатуры ). Нулевые элементы оставить без изменения.
ОТВЕТЫ
Beufakkag
Jul 13, 2019
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]lt;gt;0 then if a[i]gt;0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], );
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]lt;gt;0 then if a[i]gt;0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], );
274
Смежные вопросы:
