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
a[i]:=ABS(a[i]);
end;
end;
[ВЫВОД]
end.

Answer 2

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

Answer 3

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

Answer 4

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