19 августа, 00:29

Массив заполнен целыми числами [-50:50] в массиве 10 чисел

1) найти сумму нечетных элементов

2) найти произведение элементов расположенных на четных местах,

3) все элементы кратные десяти заменить нулем найти число пар соседних элементов являющими четными

+1
Ответы (1)
  1. 19 августа, 02:27
    0
    Var

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

    pr, i, kol, sum: integer; begin

    sum : = 0;

    pr : = 1;

    for i : = 1 to 10 do

    a[i] : = - 50 + random (100) ;

    for i : = 1 to 10 do

    begin

    if (a[i] mod 2 = 1) or (a[i] mod 2 = - 1) then / / 1

    sum : = sum + a[i];

    if (i mod 2 = 0) then / / 2

    pr : = pr * a[i]

    else if (i mod 2 = 0) and (a[i] = 0) then

    pr : = 0;

    end;

    for i : = 1 to 10 do

    if (a[i] mod 10 = 0) then

    a[i] : = 0;

    for i : = 2 to 9 do / / 3

    begin

    if a[i] = 0 then

    if (a[i + 1] 0) and ((i + 1) mod 2 = 0) and (a[i - 1] 0) and ((i - 1) mod 2 = 0) then

    kol : = kol + 1;

    end;

    writeln ('сумму нечетных элементов = ', ' ', sum) ;

    writeln ('произведение элементов = ', ' ', pr) ;

    writeln ('число пар соседних элементов = ', ' ', kol) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Массив заполнен целыми числами [-50:50] в массиве 10 чисел 1) найти сумму нечетных элементов 2) найти произведение элементов расположенных ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Ответы (1)
Переведите число 202 из восьмеричной системы счисления в десятичную
Ответы (1)
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Ответы (1)
Вводятся 3 числа, вывести на экран нечетные числа pascal
Ответы (1)
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Ответы (2)
Мощность первого в алфавита составляет 2048 символов информационный вес символа на второго алфавита она 2 бита меньше чем информационный вес символа из первого алфавита определите мощность второго алфавита
Ответы (1)
Известно правило кодирования - после каждой гласной буквы ставится буква "и", после каждой согласной - "ц". Зашифруй слова: практикум, принтер, секрет, честь.
Ответы (1)
Представить целое десятичное число 171 во внутримашинном представлении размером два байта.
Ответы (1)
Для записи текста использовался 64-символьный алфавит. Какое колисество информации в байтах содержит 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Ответы (1)
Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Ответы (1)