Дан массив состоящий из 6 вещественных чисел . Каждый отрицательный элемент массива заменить на его абсолютную величину .
Дан массив состоящий из 6 вещественных чисел . Каждый отрицательный элемент массива заменить на его абсолютную величину .
Гость
Ответ(ы) на вопрос:
Гость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.
Гость.................................
Не нашли ответ?
Похожие вопросы