Массив заполнен целыми числами [-50:50] в массиве 10 чисел1) найти сумму нечетных элементов2) найти произведение элементов расположенных на четных местах,3) все элементы кратные десяти заменить нулем найти число пар соседних элементов являющими четными

Ответы (1)

Перлас 18.03.2024 0
Vara: array [1 ... 10] of integer;pr, i, kol, sum: integer; beginsum : = 0;pr : = 1;for i : = 1 to 10 doa[i] : = - 50 + random (100) ;for i : = 1 to 10 dobeginif (a[i] mod 2 = 1) or (a[i] mod 2 = - 1) then / / 1sum : = sum + a[i];if (i mod 2 = 0) then / / 2pr : = pr * a[i]else if (i mod 2 = 0) and (a[i] = 0) thenpr : = 0;end;for i : = 1 to 10 doif (a[i] mod 10 = 0) thena[i] : = 0;for i : = 2 to 9 do / / 3beginif a[i] = 0 thenif (a[i + 1] 0) and ((i + 1) mod 2 = 0) and (a[i - 1] 0) and ((i - 1) mod 2 = 0) thenkol : = kol + 1;end;writeln ('сумму нечетных элементов = ', ' ', sum) ;writeln ('произведение элементов = ', ' ', pr) ;writeln ('число пар соседних элементов = ', ' ', kol) ;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: