Регистрация
rizvanovagyla3
16.01.2020 19:02
Информатика
Есть ответ 👍

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

113
382
Посмотреть ответы 2

Ответы на вопрос:

Sagi511
Sagi511
4,5(7 оценок)

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

   

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.

 

 

 

 

 

 

 

 

 

 

   

SuperPuper131
SuperPuper131
4,5(78 оценок)
Горячие клавиши инструменты: a — аэpогpаф (airbrush) в — кисть (brush) с — рамка (crop) e — ластик (eraser) f — режим (окно/весь экpан с меню/весь экpан без меню) g — гpадиент (gradient) h — рyка (hand) i — пипетка (eyedropper) k — заливка (paint bucket) l — лассо (lasso) м — область (marquee) n — линия (line) o — тониpование (toning tools) p — каpандаш (pencil) q — быстpая маска (quick mask) r — фокyс (focus tools) s — штамп (stamp) t — палитpа контypы (path) u — палец (smudge tool) v — пеpемещение (move) w — волшебная палочка (magic wand) y — текст (text) z — масштаб (zoom) x — поменять местами фоновый и основной цвета d — сбросить цвет/фон в черный и белый [ - пpедyдыщая кисть ] — следyющая кисть

Популярно: Информатика