22 апреля, 10:30

Дан одномерных массив содержащий n элементов и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных элементов исходного массива

0
Ответы (1)
  1. 22 апреля, 11:36
    0
    program zz1;

    var i, j, n:integer;

    a, b:array[1 ... 100] of integer; / /заводим два массива

    begin

    read (n); / / вводим заданное количество чисел n

    for i:=1 to n do / /заполняем массив числами с клавиатуры через пробел

    read (a[i]);

    for i:=1 to n do

    if a[i] <0 then begin j:=j+1; b[j]:=a[i]; end; / /проверяем, если число из массива а отрицательное, то считаем его номер и записываем в массив b

    for i:=1 to j do / /по окончанию предыдущего цикла, переменная j хранит количество отрицательных чисел из массива а

    write (b[i],' '); / /выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дан одномерных массив содержащий n элементов и заполненный с клавиатуры. Сформулируйте новый массив из отрицательных элементов исходного ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы