Дан массив состоящий из 6 вещественных чисел . Каждый отрицательный элемент массива...

Question

Дан массив состоящий из 6 вещественных чисел . Каждый отрицательный элемент массива заменить на его абсолютную величину .

Answer 1

Program qq;
var a :array [1..6] of real; i :integer
begin
[ВВОД ЧИСЕЛ]
For i:=1 to 6 do begin
If a[i]<0 then begin<br>a[i]:=ABS(a[i]);
end;
end;
[ВЫВОД]
end.

Comments

там где ввод чисел и вывод в скобках так и остовлять ?

---

если в тетради пишешь, то наверное можно, нам по крайней мере так советовали делать

---

ибо зачем писать лишнее

Answer 2

.................................