Из частей массива A, состоящего из 10 частей, заполненный случайным образом,

Из элементов массива A, состоящего из 10 частей, заполненный случайным образом, сформировать массив B по последующему правилу: положительные элементы перенести в массив b без конфигураций, а отрицательные поменять их модулем. Распечатать оба массива.

Задать свой вопрос
Алиса Муницына
НЕ СПАМЬТЕ! Толку не будет
Desivoevich Oksana
НЕ СПАМЬТЕ! Толку не будет
1 ответ
Var
a,b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(1001)-1000;
for i:=1 to 10 do b[i]:=абс(a[i]);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do write(b[i],' ');
end.
Олег
СПАСИБО!!!!!
Анжелика Герашнова
Когда дадут возможность, обязательно отмечу как превосходнейший!
Anna Levanshina
К раскаянью, не могу отметить как лучший, т.к. программка не удовлетворила всем условиям задачи. Учитель немножко поругал.
Тимур Тетерука
СПАСИБО!!!!!
Максим
Когда дадут возможность, непременно отмечу как наихороший!
Тамара Свиридчук
К раскаянию, не могу отметить как превосходнейший, т.к. программка не удовлетворила всем условиям задачки. Учитель немножко поругал.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт