Дан массив вещественных чисел. Каждый отрицательный
элемент заменить на его абсолютную величину
1 комментария:
чтобы полностью плиз, а то информатичка пристала.
чтобы полностью плиз, а то информатичка пристала. Ответы
Гость Var
A: array [1..10] of real;
i: byte;
begin
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 10 do
begin
A[i] := random * 11 - 5;
write(A[i]:4:2, ' ');
end;
writeln;
writeln('Измененный массив.');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := abs(A[i]);
write(A[i]:4:2, ' ');
end;
end.
Нет комментариев
Похожие вопросы
Информатика
Пожалуйста помогите по информатике♡...
Информатика
7.1 или 7.2 + 8.1 или 8.2 20 баллов...
Информатика
Помогите с информатикой...
Список предметов
