дан массив состоящий из 6 вещественных чисел . Каждый отрицательный элемент массива заменить на его абсолютную величину .
Ответы на вопрос
Ответил kaif2100
0
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.
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.
Ответил рома267
0
там где ввод чисел и вывод в скобках так и остовлять ?
Ответил kaif2100
0
если в тетради пишешь, то наверное можно, нам по крайней мере так советовали делать
Ответил kaif2100
0
ибо зачем писать лишнее
Новые вопросы