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

Сpython 1. дан массив целых чисел от 1 до n.в данном массиве пропущены 2 числа. найдите эти числа. (исходный массив можно задать в программе) 2. найти произведение элементов массива с индексами от 3 до 7. если вы введи количество элементов массива меньше чем 7, то выдать на экран сообщение об этом.

👇
Открыть все ответы
Ответ:
kovalcuk
kovalcuk
14.10.2020

Ре­ше­ние.

Ско­пи­ру­ем число из ячей­ки A1 в ячей­ку P1. По­сколь­ку ладья может хо­дить через не­огра­ни­чен­ное ко­ли­че­ство ячеек вниз и впра­во, не­об­хо­ди­мо для каж­дой ячей­ки вы­би­рать, из ка­ко­го числа в стро­ке до этой ячей­ки, и из ка­ко­го числа в столб­це выше этой ячей­ки долж­на схо­дить ладья, чтобы сумма ячеек при этом была мак­си­маль­ной. Для этого в ячей­ке Q1 за­пи­шем фор­му­лу =МАКС($P$1:P1)+B1 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на R1:AD1. В ячей­ке P2 за­пи­шем фор­му­лу =МАКС($P$1:P1)+A2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на P3:P15. В ячей­ке Q2 за­пи­шем фор­му­лу =МАКС(МАКС($P2:P2);МАКС(Q$1:Q1))+B2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на Q2:AD15. По­лу­чим ответ — 323.

 

ответ: 323.

4,4(70 оценок)
Ответ:
Раола
Раола
14.10.2020
Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
    if A[i] mod 2 = 0 then Write(A[i],' ')
End.

Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
    Begin
    if A[i] mod 10 = 0 then A[i]:=0;
    Write(A[i],' ')
    End;
End.
4,8(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ