Задать вопрос
11 октября, 01:47

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

+2
Ответы (1)
  1. 11 октября, 05:24
    0
    В условии задачи было бы неплохо указывать размер и тип массива и язык программирования на котором необходимо сделать задание.

    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Замените отрицательные элементы массива на положительные. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы