Вопрос по информатике:
Дан массив вещественных чисел. Каждый отрицательный
элемент заменить на его абсолютную величину
Пожаловаться
- 06.06.2018 14:59
- Информатика
- remove_red_eye 2547
- thumb_up 45
Ответы и объяснения 2
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.
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.
Пожаловаться
- 07.06.2018 18:57
- thumb_up 43
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
Пример
n= 13
5.1 -6.3 3.1 -6.5 -0.7 -4.3 5.1 1.5 -8.8 -4.2 4.3 -4.2 -5.9
5.1 6.3 3.1 6.5 0.7 4.3 5.1 1.5 8.8 4.2 4.3 4.2 5.9
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
Пример
n= 13
5.1 -6.3 3.1 -6.5 -0.7 -4.3 5.1 1.5 -8.8 -4.2 4.3 -4.2 -5.9
5.1 6.3 3.1 6.5 0.7 4.3 5.1 1.5 8.8 4.2 4.3 4.2 5.9
Пожаловаться
- 08.06.2018 00:25
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы