Задать вопрос
31 июля, 22:50

Замените нулями все положительные элементы одномерного массива A длины N

+3
Ответы (1)
  1. 1 августа, 02:42
    0
    Pascal

    const

    k = 10;

    var

    a : array [1 ... k] of integer;

    b, n, i, l : integer;

    begin

    //Формирование массива пропускаю

    readln (n) ; / / считываем длину

    //обработка массива

    for i : = 1 to k do

    begin

    l : = 0;

    b : = a[i];

    While b > 0 do

    begin

    b : = b div 10;

    l : = l + 1;

    end;

    if l = n then

    a[i] : = 0;

    end;

    //вывод массива

    writeln () ;

    for i : = 1 to k do

    write (a[i],' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Замените нулями все положительные элементы одномерного массива A длины N ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Все задачи делаются в Паскале! 1) Увеличить все элементы массива A на 1. 2) Умножить все элементы массива A на 2. 3) Возвести в квадрат все элементы массива A.
Ответы (1)
Сделать программу в Pascal. 1. Организуйте ввод и вывод одномерного массива в строку, в столбец. 2. Найдите произведение ненулевых элементов одномерного массива. 3.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)
Помогите с информатикой 1. Что такое массив? 2. Что такое элемент массива? 3. Что такое индекс массива? 4. Что такое размерность массива? 5. Зачем нужны массивы? 6. Как можно обратиться к ячейке массива? 7. Какого типа могут быль элементы массива? 8.
Ответы (1)