Составьте программу , которая сформировывает массив из 10 целых чисел Значения

Составьте программку , которая формирует массив из 10 целых чисел Значения которых лежат в промежутке от - 10 до 10 ( [ 10:10] ) . Программка обязана выводить на экран начальный массив потом конвертировать элементы массива , увеличивая в два раза положительные элементы , а для отрицательных элементы поменять символ на обратный . Выведите на экран перевоплощенный массив .
В паскале abc!!!

Задать свой вопрос
Агата
От минус 10 до плюс 10?
1 ответ

const n=10;

var a:array[1..n] of integer;

i: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ');

if a[i]gt;0 then a[i]:=a[i]*2;

if a[i]lt;0 then a[i]:=-a[i]

end;

writeln;

for i:=1 to n do write (a[i]:3,' ')

end.

Алла Погодкина
Нет... ))) Там обычно много писать надобно... )))
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт