Задать вопрос Регистрация
Помочь другим

  • Замените отрицательные элементы массива на положительные.

Ответы 1

  • В условии задачи было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать задание.

       

    Program Masiv;

    Uses Crt;

    const n=15; {у нас массив будет 15 элементов и целочисленный}

     

                           {если размер и тип другие поменяй значение n и тип} 

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

            i:integer;

    begin

         clrscr; 

         write('Введите элементы массива:'); 

         for i:=1 to n do readln(a[i]);

       

     

         writeln;

         write('Исходный массив:') 

     

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

       

      for i:=1 to n do 

          if (a[i]<0) then a[i]:=abs(a[i]);

         writeln;

         write('Обработанный массив:') 

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

           readkey;

    end.

     

     

     

     

     

     

     

     

     

     

      

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years