Введите с клавиатуры одномерный массив А (N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте произведение положительных элементов этого массива и количество отрицательных. Сформируйте новый массив В (N) из элементов массива А (N), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных - на количество отрицательных

+2
Ответы (1)
  1. 29 августа, 12:50
    0
    program zz1;

    const n = 15; / / задаем количество элементов в массиве

    var i, p, k:integer; / / задаем переменные целого типа

    a, b:array [1 ... n] of integer;

    begin

    for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

    a[i]:=random (11) - 5;

    for i:=1 to n do / / выводим исходный массив на экран

    write (a[i]:5);

    writeln; / / переходим на новую строку для вывода ответа

    p:=1;

    for i:=1 to n do

    begin

    if a[i] > 0 then p:=p * a[i];

    if a[i] < 0 then k:=k + 1;

    end;

    for i:=1 to n do

    if i mod 2 = 0 then b[i]: = p else b[i]: = k;

    for i:=1 to n do / / выводим полученный массив на экран

    write (b[i]:5);

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
1. Пропускная способность некоторого канала связи равна 128000 бит/с. Сколько времени займет передача по этому каналу файла объемом 1,5 Мбайт? 2. Скорость передачи данных по некоторому каналу связи равна 524288 бит/с.
Ответы (1)
Как можно представить одну и ту же информацию в различных формах? 1. В классе 15 мальчиков и 24 девочек. 2. Вы получили хорошую оценку по предмету. 3. Идёт дождь. 4. Проезд прямо запрещён!
Ответы (1)
В процессе преобразования растрового изображения количество цветов в нём уменьшилось с 19683 до 27. Во сколько раз уменьшился информационный объём этого изображения?
Ответы (1)
В велокроссе участвуют 235 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимально возможного количества бит, одинакового для всех спортсменов.
Ответы (1)
Какой объем видеопамяти в Кбайтах нужен для хранения изображения размером 720 х340 пикселей и использующего 128-цветную палитру?
Ответы (1)
Укажите наименьшее шестизначное двоичное число, запись которого содержит четыре единицы. В ответе запишите полученное число в десятичной системе счисления.
Ответы (1)
Файл размером 48 Кбайт передается через некоторые соединения со скоростью 4096 бит в секунду. Определите время необходимое для передачи этого файла
Ответы (1)
Вводится натуральное число. Определить, является ли оно полным квадратом. Pascal
Ответы (1)
Некоторый текст содержит 20 символов каждый из которых закодирован 8 битами, определите информационный обьем сообщения.
Ответы (1)
Запишите if then else для решения задачи: найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r - - разность m и n
Ответы (1)