М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
вбцуьа
вбцуьа
26.01.2022 13:41 •  Информатика

Дан массив, содержащий 40 целых чисел в диапазоне от -10000 до 10000. Напишите на одном из языков программирования программу, которая находит в этом массиве количество пар соседних элементов массива, произведение которых нечётно. В данной задаче под парой подразумеваются два соседних элемента массива.

👇
Ответ:
Ханна2003
Ханна2003
26.01.2022

# Python 3.7

import random

a = [0]*40

for i in range(40):

a[i] = random.randint(-10000, 10000)

b = [a[i:i+2] for i in range(0, len(a), 2)]

b = [(i[1]*i[0]) for i in b]

print(a)

print(len([i for i in b if i % 2]))

4,6(70 оценок)
Открыть все ответы
Ответ:
RonaAnna
RonaAnna
26.01.2022

1)2^2=4

2)как я понимаю, это некоторые типы имеющие ключ и значение в одной связке. Набор таких пар будет словарем

3)не знаю какие из них дополнительные.

*сложности языка, падежи, окончания,времена

*пордок слов в предложениее

*контекстный или литературный перевод, чтоб не терялось значение написаного

4)подразумевается электронный переводчик?

все перечисленное в п3, человек то может а машина нет

5)потому что это рисунок, а не текст

6)перевод картинки в текстовую информацию, если этот текст там конечно есть

4,7(87 оценок)
Ответ:
aliosha1337
aliosha1337
26.01.2022

program z_array;
uses crt;
var a:array[1..100,1..100] of integer;
m,n,i,j:byte;
sum:integer;
begin
clrscr;
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы');
readln(m);
writeln('Введите элементы матрицы');
for i := 1 to n do
for j := 1 to m do
begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln('Данная матрица');
writeln;
sum := 0;
for i := 1 to n do
begin
for j := 1 to m do
begin
write(a[i,j]:5);
if (j < i) then
sum := sum + a[i,j];
end;
writeln;
writeln('Искомая сумма = ',sum);
readln;
end.

4,8(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ