Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив состоящий из 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.