Задать вопрос
1 октября, 19:33

1) Составте программу подсчета нулевых элементов одно мерного массива Т (И) стоящих на нечетных местах.

2) Сотавте программу, которая в одно мерном массиве А (18) все элементы с нечетными номерами меняется на 0.

+1
Ответы (1)
  1. 1 октября, 20:32
    0
    Const

    n = 20;

    var

    T: array[1 ... n] of integer;

    i, k: integer;

    begin

    Randomize;

    Writeln ('Элементы массива') ;

    k : = 0;

    for i : = 1 to n do

    begin

    T[i] : = Random (11) - 5;

    Write (T[i]:3) ;

    if ((i mod 2) 0) and (T[i]=0) then Inc (k) ;

    end;

    Writeln;

    Writeln ('Количество нулевых элементов на нечетных местах равно ', k) ;

    end.

    Тестовое решение:

    Элементы массива

    2 5 - 4 4 3 - 2 5 - 5 - 1 - 2 5 2 0 - 5 - 5 - 4 - 3 3 0 1

    Количество нулевых элементов на нечетных местах равно 2

    const

    n = 18;

    var

    T: array[1 ... n] of integer;

    i: integer;

    begin

    Randomize;

    Writeln ('Элементы массива') ;

    for i : = 1 to n do

    begin

    T[i] : = Random (51) - 25;

    Write (T[i]:4) ;

    end;

    Writeln;

    Writeln ('Результат') ;

    for i : = 1 to n do

    begin

    if ((i mod 2) 0) then T[i] : = 0;

    Write (T[i]:4) ;

    end;

    Writeln;

    end.

    Тестовое решение:

    Элементы массива

    23 - 6 8 14 15 12 - 24 20 - 11 - 7 4 - 24 22 - 19 12 - 6 21 17

    Результат

    0 - 6 0 14 0 12 0 20 0 - 7 0 - 24 0 - 19 0 - 6 0 17
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) Составте программу подсчета нулевых элементов одно мерного массива Т (И) стоящих на нечетных местах. 2) Сотавте программу, которая в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы